home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 8.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 33 3a 35 37 3a 30 | 38 20 31 39 39 35 0a 3b | 13:57:0|8 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 65 64 | 65 62 75 67 2f 63 6c 2d |/lisp/ed|ebug/cl-|
|00000090| 73 70 65 63 73 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |specs.el|.;;; ema|
|000000a0| 63 73 20 76 65 72 73 69 | 6f 6e 20 31 39 2e 31 33 |cs versi|on 19.13|
|000000b0| 20 58 45 6d 61 63 73 20 | 4c 75 63 69 64 2e 0a 3b | XEmacs |Lucid..;|
|000000c0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000d0| 69 6f 6e 20 32 2e 32 35 | 3b 20 31 2d 53 65 70 2d |ion 2.25|; 1-Sep-|
|000000e0| 39 34 2e 0a 3b 3b 3b 20 | 6f 70 74 69 6d 69 7a 61 |94..;;; |optimiza|
|000000f0| 74 69 6f 6e 20 69 73 20 | 6f 6e 2e 0a 3b 3b 3b 20 |tion is |on..;;; |
|00000100| 74 68 69 73 20 66 69 6c | 65 20 75 73 65 73 20 6f |this fil|e uses o|
|00000110| 70 63 6f 64 65 73 20 77 | 68 69 63 68 20 64 6f 20 |pcodes w|hich do |
|00000120| 6e 6f 74 20 65 78 69 73 | 74 20 69 6e 20 45 6d 61 |not exis|t in Ema|
|00000130| 63 73 20 31 38 2e 0a 0a | 28 69 66 20 28 61 6e 64 |cs 18...|(if (and|
|00000140| 20 28 62 6f 75 6e 64 70 | 20 27 65 6d 61 63 73 2d | (boundp| 'emacs-|
|00000150| 76 65 72 73 69 6f 6e 29 | 0a 09 20 28 6f 72 20 28 |version)|.. (or (|
|00000160| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 70 6f |and (bou|ndp 'epo|
|00000170| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 20 65 70 6f |ch::vers|ion) epo|
|00000180| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 0a 09 20 20 |ch::vers|ion).. |
|00000190| 20 20 20 28 73 74 72 69 | 6e 67 2d 6c 65 73 73 70 | (stri|ng-lessp|
|000001a0| 20 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 20 22 | emacs-v|ersion "|
|000001b0| 31 39 22 29 29 29 0a 20 | 20 20 20 28 65 72 72 6f |19"))). | (erro|
|000001c0| 72 20 22 54 68 69 73 20 | 66 69 6c 65 20 77 61 73 |r "This |file was|
|000001d0| 20 63 6f 6d 70 69 6c 65 | 64 20 66 6f 72 20 45 6d | compile|d for Em|
|000001e0| 61 63 73 20 31 39 2e 22 | 29 29 0a 0a 28 62 79 74 |acs 19."|))..(byt|
|000001f0| 65 2d 63 6f 64 65 20 22 | c0 c1 21 88 c2 c3 c4 c5 |e-code "|..!.....|
|00000200| 23 88 c2 c6 c4 c7 23 88 | c2 c8 c4 c9 23 88 c2 ca |#.....#.|....#...|
|00000210| c4 cb 23 88 c2 cc c4 cb | 23 88 c2 cd c4 ce 23 88 |..#.....|#.....#.|
|00000220| c2 cf c4 cd 23 88 c2 d0 | c4 d1 23 88 c2 d2 c4 d0 |....#...|..#.....|
|00000230| 23 88 c2 d3 c4 d4 23 88 | c2 d5 c4 d3 23 88 c2 d6 |#.....#.|....#...|
|00000240| c4 d7 23 88 c2 d8 c4 d9 | 23 88 c2 da c4 db 23 88 |..#.....|#.....#.|
|00000250| c2 dc c4 dd 23 88 c2 de | c4 df 23 88 c2 e0 c4 e1 |....#...|..#.....|
|00000260| 23 88 c2 e2 c4 e3 23 88 | c2 e4 c4 e5 23 88 c2 e6 |#.....#.|....#...|
|00000270| c4 e5 23 88 c2 e7 c4 e8 | 23 88 c2 e9 c4 ea 23 88 |..#.....|#.....#.|
|00000280| c2 eb c4 ec 23 88 c2 ed | c4 eb 23 88 c2 ee c4 ef |....#...|..#.....|
|00000290| 23 88 c2 f0 c4 f1 23 88 | c2 f2 c4 f3 23 88 c2 f4 |#.....#.|....#...|
|000002a0| c4 f5 23 88 c2 f6 c4 f4 | 23 88 c2 f7 c4 f8 23 88 |..#.....|#.....#.|
|000002b0| c2 f9 c4 f7 23 88 c2 fa | c4 fb 23 88 c2 fc c4 fd |....#...|..#.....|
|000002c0| 23 88 c2 fe c4 ff 23 88 | c2 81 40 00 c4 81 41 00 |#.....#.|..@...A.|
|000002d0| 23 88 c2 81 42 00 c4 81 | 43 00 23 88 c2 81 44 00 |#...B...|C.#...D.|
|000002e0| c4 81 45 00 23 88 c2 81 | 46 00 c4 81 47 00 23 88 |..E.#...|F...G.#.|
|000002f0| c2 81 48 00 c4 81 46 00 | 23 88 c2 81 49 00 c4 81 |..H...F.|#...I...|
|00000300| 4a 00 23 88 c2 81 4b 00 | c4 81 4c 00 23 88 c2 81 |J.#...K.|..L.#...|
|00000310| 4d 00 c4 81 4e 00 23 88 | c2 81 4f 00 c4 81 50 00 |M...N.#.|..O...P.|
|00000320| 23 88 c2 81 51 00 c4 81 | 52 00 23 88 c2 81 53 00 |#...Q...|R.#...S.|
|00000330| c4 81 54 00 23 88 c2 81 | 55 00 c4 81 53 00 23 88 |..T.#...|U...S.#.|
|00000340| c2 81 56 00 c4 81 53 00 | 23 88 c2 81 57 00 c4 81 |..V...S.|#...W...|
|00000350| 53 00 23 88 c2 81 58 00 | c4 81 59 00 23 88 c2 81 |S.#...X.|..Y.#...|
|00000360| 5a 00 c4 81 5b 00 23 88 | c2 81 5c 5c 00 c4 81 5a |Z...[.#.|..\\...Z|
|00000370| 00 23 88 c2 81 5d 00 c4 | 81 5a 00 23 88 c2 81 5e |.#...]..|.Z.#...^|
|00000380| 00 c4 81 5a 00 23 88 c2 | 81 5f 00 c4 81 5a 00 23 |...Z.#..|._...Z.#|
|00000390| 88 c2 81 60 00 c4 81 61 | 00 23 88 c2 81 62 00 c4 |...`...a|.#...b..|
|000003a0| 81 63 00 23 88 c2 81 64 | 00 c4 81 65 00 23 88 c2 |.c.#...d|...e.#..|
|000003b0| 81 66 00 c4 81 67 00 23 | 88 c2 81 68 00 c4 81 69 |.f...g.#|...h...i|
|000003c0| 00 23 88 c2 81 6a 00 c4 | 81 6b 00 23 88 c2 81 6c |.#...j..|.k.#...l|
|000003d0| 00 c4 81 6a 00 23 88 c2 | 81 6d 00 c4 cb 23 88 c2 |...j.#..|.m...#..|
|000003e0| 81 6e 00 c4 81 6f 00 23 | 88 c2 81 70 00 c4 cb 23 |.n...o.#|...p...#|
|000003f0| 88 c2 81 71 00 c4 81 72 | 00 23 88 c2 81 73 00 c4 |...q...r|.#...s..|
|00000400| 81 74 00 23 88 c2 81 75 | 00 c4 81 76 00 23 88 c2 |.t.#...u|...v.#..|
|00000410| 81 77 00 c4 81 78 00 23 | 88 c2 81 79 00 c4 81 7a |.w...x.#|...y...z|
|00000420| 00 23 88 c2 81 7b 00 c4 | 81 7c 00 23 88 c2 81 7d |.#...{..|.|.#...}|
|00000430| 00 c4 81 7e 00 23 88 c2 | 81 7f 00 c4 81 80 00 23 |...~.#..|.......#|
|00000440| 88 c2 81 81 00 c4 81 82 | 00 23 88 c2 81 83 00 c4 |........|.#......|
|00000450| 81 84 00 23 88 c2 81 85 | 00 c4 81 86 00 23 88 c2 |...#....|.....#..|
|00000460| 81 87 00 c4 81 88 00 23 | 88 c2 81 89 00 c4 81 8a |.......#|........|
|00000470| 00 23 88 c2 81 8b 00 c4 | 81 8c 00 23 88 c2 81 8d |.#......|...#....|
|00000480| 00 c4 81 8e 00 23 88 c2 | 81 8f 00 c4 81 8d 00 23 |.....#..|.......#|
|00000490| 88 c2 81 65 00 c4 81 90 | 00 23 88 c2 81 91 00 c4 |...e....|.#......|
|000004a0| 81 65 00 23 88 c2 81 92 | 00 c4 81 93 00 23 88 c2 |.e.#....|.....#..|
|000004b0| 81 94 00 c4 81 95 00 23 | 88 c2 81 96 00 c4 81 97 |.......#|........|
|000004c0| 00 23 88 c2 81 98 00 c4 | 81 99 00 23 88 c2 81 9a |.#......|...#....|
|000004d0| 00 c4 81 9b 00 23 88 c2 | 81 9c 00 c4 81 9d 00 23 |.....#..|.......#|
|000004e0| 88 c2 81 9e 00 c4 81 9f | 00 23 88 c2 81 a0 00 c4 |........|.#......|
|000004f0| 81 a1 00 23 88 c2 81 a2 | 00 c4 81 a3 00 23 88 c2 |...#....|.....#..|
|00000500| 81 a4 00 c4 81 a5 00 23 | 88 c2 81 a6 00 c4 81 a7 |.......#|........|
|00000510| 00 23 88 c2 81 a8 00 c4 | 81 a9 00 23 88 c2 81 aa |.#......|...#....|
|00000520| 00 c4 81 ab 00 23 88 c2 | 81 ac 00 c4 81 ad 00 23 |.....#..|.......#|
|00000530| 87 22 20 5b 72 65 71 75 | 69 72 65 20 65 64 65 62 |." [requ|ire edeb|
|00000540| 75 67 20 70 75 74 20 62 | 6c 6f 63 6b 20 65 64 65 |ug put b|lock ede|
|00000550| 62 75 67 2d 66 6f 72 6d | 2d 73 70 65 63 20 28 73 |bug-form|-spec (s|
|00000560| 79 6d 62 6f 6c 70 20 62 | 6f 64 79 29 20 72 65 74 |ymbolp b|ody) ret|
|00000570| 75 72 6e 20 28 26 6f 70 | 74 69 6f 6e 61 6c 20 66 |urn (&op|tional f|
|00000580| 6f 72 6d 29 20 72 65 74 | 75 72 6e 2d 66 72 6f 6d |orm) ret|urn-from|
|00000590| 20 28 73 79 6d 62 6f 6c | 70 20 26 6f 70 74 69 6f | (symbol|p &optio|
|000005a0| 6e 61 6c 20 66 6f 72 6d | 29 20 77 68 65 6e 20 74 |nal form|) when t|
|000005b0| 20 75 6e 6c 65 73 73 20 | 63 61 73 65 20 28 66 6f | unless |case (fo|
|000005c0| 72 6d 20 26 72 65 73 74 | 20 28 73 65 78 70 20 62 |rm &rest| (sexp b|
|000005d0| 6f 64 79 29 29 20 65 63 | 61 73 65 20 64 6f 20 28 |ody)) ec|ase do (|
|000005e0| 28 26 72 65 73 74 20 26 | 6f 72 20 73 79 6d 62 6f |(&rest &|or symbo|
|000005f0| 6c 70 20 28 73 79 6d 62 | 6f 6c 70 20 26 6f 70 74 |lp (symb|olp &opt|
|00000600| 69 6f 6e 61 6c 20 66 6f | 72 6d 20 66 6f 72 6d 29 |ional fo|rm form)|
|00000610| 29 20 28 66 6f 72 6d 20 | 62 6f 64 79 29 20 63 6c |) (form |body) cl|
|00000620| 2d 64 65 63 6c 61 72 61 | 74 69 6f 6e 73 20 62 6f |-declara|tions bo|
|00000630| 64 79 29 20 64 6f 2a 20 | 64 6f 6c 69 73 74 20 28 |dy) do* |dolist (|
|00000640| 28 73 79 6d 62 6f 6c 70 | 20 66 6f 72 6d 20 26 6f |(symbolp| form &o|
|00000650| 70 74 69 6f 6e 61 6c 20 | 66 6f 72 6d 29 20 63 6c |ptional |form) cl|
|00000660| 2d 64 65 63 6c 61 72 61 | 74 69 6f 6e 73 20 62 6f |-declara|tions bo|
|00000670| 64 79 29 20 64 6f 74 69 | 6d 65 73 20 64 6f 73 79 |dy) doti|mes dosy|
|00000680| 6d 62 6f 6c 73 20 28 28 | 73 79 6d 62 6f 6c 70 20 |mbols ((|symbolp |
|00000690| 26 6f 70 74 69 6f 6e 61 | 6c 20 66 6f 72 6d 20 66 |&optiona|l form f|
|000006a0| 6f 72 6d 29 20 63 6c 2d | 64 65 63 6c 61 72 61 74 |orm) cl-|declarat|
|000006b0| 69 6f 6e 73 20 62 6f 64 | 79 29 20 64 6f 2d 61 6c |ions bod|y) do-al|
|000006c0| 6c 2d 73 79 6d 62 6f 6c | 73 20 28 28 73 79 6d 62 |l-symbol|s ((symb|
|000006d0| 6f 6c 70 20 26 6f 70 74 | 69 6f 6e 61 6c 20 66 6f |olp &opt|ional fo|
|000006e0| 72 6d 29 20 63 6c 2d 64 | 65 63 6c 61 72 61 74 69 |rm) cl-d|eclarati|
|000006f0| 6f 6e 73 20 62 6f 64 79 | 29 20 6d 75 6c 74 69 70 |ons body|) multip|
|00000700| 6c 65 2d 76 61 6c 75 65 | 2d 6c 69 73 74 20 28 66 |le-value|-list (f|
|00000710| 6f 72 6d 29 20 6d 75 6c | 74 69 70 6c 65 2d 76 61 |orm) mul|tiple-va|
|00000720| 6c 75 65 2d 63 61 6c 6c | 20 28 66 75 6e 63 74 69 |lue-call| (functi|
|00000730| 6f 6e 2d 66 6f 72 6d 20 | 62 6f 64 79 29 20 6d 75 |on-form |body) mu|
|00000740| 6c 74 69 70 6c 65 2d 76 | 61 6c 75 65 2d 62 69 6e |ltiple-v|alue-bin|
|00000750| 64 20 28 28 26 72 65 73 | 74 20 73 79 6d 62 6f 6c |d ((&res|t symbol|
|00000760| 70 29 20 66 6f 72 6d 20 | 63 6c 2d 64 65 63 6c 61 |p) form |cl-decla|
|00000770| 72 61 74 69 6f 6e 73 20 | 62 6f 64 79 29 20 6d 75 |rations |body) mu|
|00000780| 6c 74 69 70 6c 65 2d 76 | 61 6c 75 65 2d 73 65 74 |ltiple-v|alue-set|
|00000790| 71 20 28 28 26 72 65 73 | 74 20 73 79 6d 62 6f 6c |q ((&res|t symbol|
|000007a0| 70 29 20 66 6f 72 6d 29 | 20 6d 75 6c 74 69 70 6c |p) form)| multipl|
|000007b0| 65 2d 76 61 6c 75 65 2d | 70 72 6f 67 31 20 28 66 |e-value-|prog1 (f|
|000007c0| 6f 72 6d 20 62 6f 64 79 | 29 20 6c 65 78 69 63 61 |orm body|) lexica|
|000007d0| 6c 2d 6c 65 74 20 6c 65 | 74 20 6c 65 78 69 63 61 |l-let le|t lexica|
|000007e0| 6c 2d 6c 65 74 2a 20 70 | 73 65 74 71 20 73 65 74 |l-let* p|setq set|
|000007f0| 71 20 70 72 6f 67 76 20 | 28 66 6f 72 6d 20 66 6f |q progv |(form fo|
|00000800| 72 6d 20 62 6f 64 79 29 | 20 66 6c 65 74 20 28 28 |rm body)| flet ((|
|00000810| 26 72 65 73 74 20 28 64 | 65 66 75 6e 2a 29 29 20 |&rest (d|efun*)) |
|00000820| 63 6c 2d 64 65 63 6c 61 | 72 61 74 69 6f 6e 73 20 |cl-decla|rations |
|00000830| 62 6f 64 79 29 20 6c 61 | 62 65 6c 73 20 6d 61 63 |body) la|bels mac|
|00000840| 72 6f 6c 65 74 20 28 28 | 26 72 65 73 74 20 28 26 |rolet ((|&rest (&|
|00000850| 64 65 66 69 6e 65 20 6e | 61 6d 65 20 28 26 72 65 |define n|ame (&re|
|00000860| 73 74 20 61 72 67 29 20 | 63 6c 2d 64 65 63 6c 61 |st arg) |cl-decla|
|00000870| 72 61 74 69 6f 6e 73 2d | 6f 72 2d 73 74 72 69 6e |rations-|or-strin|
|00000880| 67 20 64 65 66 2d 62 6f | 64 79 29 29 20 63 6c 2d |g def-bo|dy)) cl-|
|00000890| 64 65 63 6c 61 72 61 74 | 69 6f 6e 73 20 62 6f 64 |declarat|ions bod|
|000008a0| 79 29 20 73 79 6d 62 6f | 6c 2d 6d 61 63 72 6f 6c |y) symbo|l-macrol|
|000008b0| 65 74 20 28 28 26 72 65 | 73 74 20 28 73 79 6d 62 |et ((&re|st (symb|
|000008c0| 6f 6c 20 73 65 78 70 29 | 29 20 63 6c 2d 64 65 63 |ol sexp)|) cl-dec|
|000008d0| 6c 61 72 61 74 69 6f 6e | 73 20 62 6f 64 79 29 20 |laration|s body) |
|000008e0| 64 65 73 74 72 75 63 74 | 75 72 69 6e 67 2d 62 69 |destruct|uring-bi|
|000008f0| 6e 64 20 28 26 64 65 66 | 69 6e 65 20 63 6c 2d 6d |nd (&def|ine cl-m|
|00000900| 61 63 72 6f 2d 6c 69 73 | 74 20 66 6f 72 6d 20 63 |acro-lis|t form c|
|00000910| 6c 2d 64 65 63 6c 61 72 | 61 74 69 6f 6e 73 20 64 |l-declar|ations d|
|00000920| 65 66 2d 62 6f 64 79 29 | 20 73 65 74 66 20 28 26 |ef-body)| setf (&|
|00000930| 72 65 73 74 20 5b 70 6c | 61 63 65 20 66 6f 72 6d |rest [pl|ace form|
|00000940| 5d 29 20 70 73 65 74 66 | 20 6c 65 74 66 20 28 28 |]) psetf| letf ((|
|00000950| 26 72 65 73 74 20 28 66 | 65 6e 63 65 20 70 6c 61 |&rest (f|ence pla|
|00000960| 63 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 66 6f 72 |ce &opti|onal for|
|00000970| 6d 29 29 20 62 6f 64 79 | 29 20 6c 65 74 66 2a 20 |m)) body|) letf* |
|00000980| 64 65 66 73 65 74 66 20 | 28 26 64 65 66 69 6e 65 |defsetf |(&define|
|00000990| 20 6e 61 6d 65 20 5b 26 | 6f 72 20 5b 73 79 6d 62 | name [&|or [symb|
|000009a0| 6f 6c 70 20 26 6f 70 74 | 69 6f 6e 61 6c 20 73 74 |olp &opt|ional st|
|000009b0| 72 69 6e 67 70 5d 20 5b | 63 6c 2d 6c 61 6d 62 64 |ringp] [|cl-lambd|
|000009c0| 61 2d 6c 69 73 74 20 28 | 73 79 6d 62 6f 6c 70 29 |a-list (|symbolp)|
|000009d0| 5d 5d 20 63 6c 2d 64 65 | 63 6c 61 72 61 74 69 6f |]] cl-de|claratio|
|000009e0| 6e 73 2d 6f 72 2d 73 74 | 72 69 6e 67 20 64 65 66 |ns-or-st|ring def|
|000009f0| 2d 62 6f 64 79 29 20 64 | 65 66 69 6e 65 2d 73 65 |-body) d|efine-se|
|00000a00| 74 66 2d 6d 65 74 68 6f | 64 20 28 26 64 65 66 69 |tf-metho|d (&defi|
|00000a10| 6e 65 20 6e 61 6d 65 20 | 63 6c 2d 6c 61 6d 62 64 |ne name |cl-lambd|
|00000a20| 61 2d 6c 69 73 74 20 63 | 6c 2d 64 65 63 6c 61 72 |a-list c|l-declar|
|00000a30| 61 74 69 6f 6e 73 2d 6f | 72 2d 73 74 72 69 6e 67 |ations-o|r-string|
|00000a40| 20 64 65 66 2d 62 6f 64 | 79 29 20 64 65 66 69 6e | def-bod|y) defin|
|00000a50| 65 2d 6d 6f 64 69 66 79 | 2d 6d 61 63 72 6f 20 28 |e-modify|-macro (|
|00000a60| 26 64 65 66 69 6e 65 20 | 6e 61 6d 65 20 63 6c 2d |&define |name cl-|
|00000a70| 6c 61 6d 62 64 61 2d 6c | 69 73 74 20 73 79 6d 62 |lambda-l|ist symb|
|00000a80| 6f 6c 70 20 26 6f 70 74 | 69 6f 6e 61 6c 20 73 74 |olp &opt|ional st|
|00000a90| 72 69 6e 67 70 29 20 63 | 61 6c 6c 66 20 28 5b 26 |ringp) c|allf ([&|
|00000aa0| 6f 72 20 73 79 6d 62 6f | 6c 70 20 6c 61 6d 62 64 |or symbo|lp lambd|
|00000ab0| 61 2d 65 78 70 72 5d 20 | 70 6c 61 63 65 20 26 72 |a-expr] |place &r|
|00000ac0| 65 73 74 20 66 6f 72 6d | 29 20 63 61 6c 6c 66 32 |est form|) callf2|
|00000ad0| 20 28 5b 26 6f 72 20 73 | 79 6d 62 6f 6c 70 20 6c | ([&or s|ymbolp l|
|00000ae0| 61 6d 62 64 61 2d 65 78 | 70 72 5d 20 66 6f 72 6d |ambda-ex|pr] form|
|00000af0| 20 70 6c 61 63 65 20 26 | 72 65 73 74 20 66 6f 72 | place &|rest for|
|00000b00| 6d 29 20 72 65 6d 66 20 | 28 70 6c 61 63 65 20 66 |m) remf |(place f|
|00000b10| 6f 72 6d 29 20 69 6e 63 | 66 20 28 70 6c 61 63 65 |orm) inc|f (place|
|00000b20| 20 26 6f 70 74 69 6f 6e | 61 6c 20 66 6f 72 6d 29 | &option|al form)|
|00000b30| 20 64 65 63 66 20 70 75 | 73 68 20 28 66 6f 72 6d | decf pu|sh (form|
|00000b40| 20 70 6c 61 63 65 29 20 | 70 75 73 68 6e 65 77 20 | place) |pushnew |
|00000b50| 28 66 6f 72 6d 20 70 6c | 61 63 65 20 26 72 65 73 |(form pl|ace &res|
|00000b60| 74 20 5b 5b 26 6f 72 20 | 22 3a 74 65 73 74 22 20 |t [[&or |":test" |
|00000b70| 22 3a 74 65 73 74 2d 6e | 6f 74 22 20 22 3a 6b 65 |":test-n|ot" ":ke|
|00000b80| 79 22 5d 20 66 75 6e 63 | 74 69 6f 6e 2d 66 6f 72 |y"] func|tion-for|
|00000b90| 6d 5d 29 20 70 6f 70 20 | 28 70 6c 61 63 65 29 20 |m]) pop |(place) |
|00000ba0| 73 68 69 66 74 66 20 28 | 26 72 65 73 74 20 70 6c |shiftf (|&rest pl|
|00000bb0| 61 63 65 29 20 72 6f 74 | 61 74 65 66 20 28 26 72 |ace) rot|atef (&r|
|00000bc0| 65 73 74 20 70 6c 61 63 | 65 29 20 73 6f 6d 65 20 |est plac|e) some |
|00000bd0| 28 66 75 6e 63 74 69 6f | 6e 2d 66 6f 72 6d 20 66 |(functio|n-form f|
|00000be0| 6f 72 6d 20 26 72 65 73 | 74 20 66 6f 72 6d 29 20 |orm &res|t form) |
|00000bf0| 65 76 65 72 79 20 6e 6f | 74 61 6e 79 20 6e 6f 74 |every no|tany not|
|00000c00| 65 76 65 72 79 20 6d 61 | 70 20 28 66 6f 72 6d 20 |every ma|p (form |
|00000c10| 66 75 6e 63 74 69 6f 6e | 2d 66 6f 72 6d 20 66 6f |function|-form fo|
|00000c20| 72 6d 20 26 72 65 73 74 | 20 66 6f 72 6d 29 20 6d |rm &rest| form) m|
|00000c30| 61 70 6c 69 73 74 20 28 | 66 75 6e 63 74 69 6f 6e |aplist (|function|
|00000c40| 2d 66 6f 72 6d 20 66 6f | 72 6d 20 26 72 65 73 74 |-form fo|rm &rest|
|00000c50| 20 66 6f 72 6d 29 20 6d | 61 70 63 20 6d 61 70 6c | form) m|apc mapl|
|00000c60| 20 6d 61 70 63 61 6e 20 | 6d 61 70 63 6f 6e 20 72 | mapcan |mapcon r|
|00000c70| 65 64 75 63 65 20 28 66 | 75 6e 63 74 69 6f 6e 2d |educe (f|unction-|
|00000c80| 66 6f 72 6d 20 66 6f 72 | 6d 20 26 72 65 73 74 20 |form for|m &rest |
|00000c90| 66 6f 72 6d 29 20 63 6c | 2d 74 79 70 65 2d 73 70 |form) cl|-type-sp|
|00000ca0| 65 63 20 28 73 65 78 70 | 29 20 64 65 66 74 79 70 |ec (sexp|) deftyp|
|00000cb0| 65 20 64 65 66 6d 61 63 | 72 6f 2a 20 63 68 65 63 |e defmac|ro* chec|
|00000cc0| 6b 2d 74 79 70 65 20 28 | 70 6c 61 63 65 20 63 6c |k-type (|place cl|
|00000cd0| 2d 74 79 70 65 2d 73 70 | 65 63 20 26 6f 70 74 69 |-type-sp|ec &opti|
|00000ce0| 6f 6e 61 6c 20 73 74 72 | 69 6e 67 70 29 20 61 73 |onal str|ingp) as|
|00000cf0| 73 65 72 74 20 28 66 6f | 72 6d 20 26 72 65 73 74 |sert (fo|rm &rest|
|00000d00| 20 66 6f 72 6d 29 20 74 | 79 70 65 63 61 73 65 20 | form) t|ypecase |
|00000d10| 28 66 6f 72 6d 20 26 72 | 65 73 74 20 28 5b 26 6f |(form &r|est ([&o|
|00000d20| 72 20 63 6c 2d 74 79 70 | 65 2d 73 70 65 63 20 22 |r cl-typ|e-spec "|
|00000d30| 6f 74 68 65 72 77 69 73 | 65 22 5d 20 62 6f 64 79 |otherwis|e"] body|
|00000d40| 29 29 20 65 74 79 70 65 | 63 61 73 65 20 69 67 6e |)) etype|case ign|
|00000d50| 6f 72 65 2d 65 72 72 6f | 72 73 20 65 76 61 6c 2d |ore-erro|rs eval-|
|00000d60| 77 68 65 6e 20 28 28 26 | 72 65 73 74 20 26 6f 72 |when ((&|rest &or|
|00000d70| 20 22 63 6f 6d 70 69 6c | 65 22 20 22 6c 6f 61 64 | "compil|e" "load|
|00000d80| 22 20 22 65 76 61 6c 22 | 29 20 62 6f 64 79 29 20 |" "eval"|) body) |
|00000d90| 65 76 61 6c 2d 77 68 65 | 6e 2d 63 6f 6d 70 69 6c |eval-whe|n-compil|
|00000da0| 65 20 6c 6f 61 64 2d 74 | 69 6d 65 2d 76 61 6c 75 |e load-t|ime-valu|
|00000db0| 65 20 28 66 6f 72 6d 20 | 26 6f 70 74 69 6f 6e 61 |e (form |&optiona|
|00000dc0| 6c 20 26 6f 72 20 22 74 | 22 20 22 6e 69 6c 22 29 |l &or "t|" "nil")|
|00000dd0| 20 63 6c 2d 64 65 63 6c | 2d 73 70 65 63 20 28 28 | cl-decl|-spec ((|
|00000de0| 73 79 6d 62 6f 6c 70 20 | 26 72 65 73 74 20 73 65 |symbolp |&rest se|
|00000df0| 78 70 29 29 20 63 6c 2d | 64 65 63 6c 61 72 61 74 |xp)) cl-|declarat|
|00000e00| 69 6f 6e 73 20 28 26 72 | 65 73 74 20 28 22 64 65 |ions (&r|est ("de|
|00000e10| 63 6c 61 72 65 22 20 26 | 72 65 73 74 20 63 6c 2d |clare" &|rest cl-|
|00000e20| 64 65 63 6c 2d 73 70 65 | 63 29 29 20 63 6c 2d 64 |decl-spe|c)) cl-d|
|00000e30| 65 63 6c 61 72 61 74 69 | 6f 6e 73 2d 6f 72 2d 73 |eclarati|ons-or-s|
|00000e40| 74 72 69 6e 67 20 28 26 | 6f 72 20 73 74 72 69 6e |tring (&|or strin|
|00000e50| 67 70 20 63 6c 2d 64 65 | 63 6c 61 72 61 74 69 6f |gp cl-de|claratio|
|00000e60| 6e 73 29 20 64 65 63 6c | 61 69 6d 20 28 26 72 65 |ns) decl|aim (&re|
|00000e70| 73 74 20 63 6c 2d 64 65 | 63 6c 2d 73 70 65 63 29 |st cl-de|cl-spec)|
|00000e80| 20 64 65 63 6c 61 72 65 | 20 28 26 72 65 73 74 20 | declare| (&rest |
|00000e90| 63 6c 2d 64 65 63 6c 2d | 73 70 65 63 29 20 6c 6f |cl-decl-|spec) lo|
|00000ea0| 63 61 6c 6c 79 20 28 63 | 6c 2d 64 65 63 6c 61 72 |cally (c|l-declar|
|00000eb0| 61 74 69 6f 6e 73 20 26 | 72 65 73 74 20 66 6f 72 |ations &|rest for|
|00000ec0| 6d 29 20 74 68 65 20 28 | 63 6c 2d 74 79 70 65 2d |m) the (|cl-type-|
|00000ed0| 73 70 65 63 20 66 6f 72 | 6d 29 20 63 6c 2d 6c 61 |spec for|m) cl-la|
|00000ee0| 6d 62 64 61 2d 6c 69 73 | 74 20 28 28 5b 26 72 65 |mbda-lis|t (([&re|
|00000ef0| 73 74 20 61 72 67 5d 20 | 5b 26 6f 70 74 69 6f 6e |st arg] |[&option|
|00000f00| 61 6c 20 5b 22 26 6f 70 | 74 69 6f 6e 61 6c 22 20 |al ["&op|tional" |
|00000f10| 63 6c 2d 26 6f 70 74 69 | 6f 6e 61 6c 2d 61 72 67 |cl-&opti|onal-arg|
|00000f20| 20 26 72 65 73 74 20 63 | 6c 2d 26 6f 70 74 69 6f | &rest c|l-&optio|
|00000f30| 6e 61 6c 2d 61 72 67 5d | 5d 20 5b 26 6f 70 74 69 |nal-arg]|] [&opti|
|00000f40| 6f 6e 61 6c 20 5b 22 26 | 72 65 73 74 22 20 61 72 |onal ["&|rest" ar|
|00000f50| 67 5d 5d 20 5b 26 6f 70 | 74 69 6f 6e 61 6c 20 5b |g]] [&op|tional [|
|00000f60| 22 26 6b 65 79 22 20 5b | 63 6c 2d 26 6b 65 79 2d |"&key" [|cl-&key-|
|00000f70| 61 72 67 20 26 72 65 73 | 74 20 63 6c 2d 26 6b 65 |arg &res|t cl-&ke|
|00000f80| 79 2d 61 72 67 5d 20 26 | 6f 70 74 69 6f 6e 61 6c |y-arg] &|optional|
|00000f90| 20 22 26 61 6c 6c 6f 77 | 2d 6f 74 68 65 72 2d 6b | "&allow|-other-k|
|00000fa0| 65 79 77 6f 72 64 73 22 | 5d 5d 20 5b 26 6f 70 74 |eywords"|]] [&opt|
|00000fb0| 69 6f 6e 61 6c 20 5b 22 | 26 61 75 78 22 20 26 72 |ional ["|&aux" &r|
|00000fc0| 65 73 74 20 26 6f 72 20 | 28 73 79 6d 62 6f 6c 70 |est &or |(symbolp|
|00000fd0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 64 65 66 2d 66 | &option|al def-f|
|00000fe0| 6f 72 6d 29 20 73 79 6d | 62 6f 6c 70 5d 5d 29 29 |orm) sym|bolp]]))|
|00000ff0| 20 63 6c 2d 26 6f 70 74 | 69 6f 6e 61 6c 2d 61 72 | cl-&opt|ional-ar|
|00001000| 67 20 28 26 6f 72 20 28 | 61 72 67 20 26 6f 70 74 |g (&or (|arg &opt|
|00001010| 69 6f 6e 61 6c 20 64 65 | 66 2d 66 6f 72 6d 20 61 |ional de|f-form a|
|00001020| 72 67 29 20 61 72 67 29 | 20 63 6c 2d 26 6b 65 79 |rg) arg)| cl-&key|
|00001030| 2d 61 72 67 20 28 26 6f | 72 20 28 5b 26 6f 72 20 |-arg (&o|r ([&or |
|00001040| 28 73 79 6d 62 6f 6c 70 | 20 61 72 67 29 20 61 72 |(symbolp| arg) ar|
|00001050| 67 5d 20 26 6f 70 74 69 | 6f 6e 61 6c 20 64 65 66 |g] &opti|onal def|
|00001060| 2d 66 6f 72 6d 20 61 72 | 67 29 20 61 72 67 29 20 |-form ar|g) arg) |
|00001070| 63 6c 2d 6d 61 63 72 6f | 2d 6c 69 73 74 20 28 28 |cl-macro|-list ((|
|00001080| 5b 26 6f 70 74 69 6f 6e | 61 6c 20 22 26 65 6e 76 |[&option|al "&env|
|00001090| 69 72 6f 6e 6d 65 6e 74 | 22 20 61 72 67 5d 20 5b |ironment|" arg] [|
|000010a0| 26 72 65 73 74 20 63 6c | 2d 6d 61 63 72 6f 2d 61 |&rest cl|-macro-a|
|000010b0| 72 67 5d 20 5b 26 6f 70 | 74 69 6f 6e 61 6c 20 5b |rg] [&op|tional [|
|000010c0| 22 26 6f 70 74 69 6f 6e | 61 6c 22 20 26 72 65 73 |"&option|al" &res|
|000010d0| 74 20 26 6f 72 20 28 63 | 6c 2d 6d 61 63 72 6f 2d |t &or (c|l-macro-|
|000010e0| 61 72 67 20 26 6f 70 74 | 69 6f 6e 61 6c 20 64 65 |arg &opt|ional de|
|000010f0| 66 2d 66 6f 72 6d 20 63 | 6c 2d 6d 61 63 72 6f 2d |f-form c|l-macro-|
|00001100| 61 72 67 29 20 61 72 67 | 5d 5d 20 5b 26 6f 70 74 |arg) arg|]] [&opt|
|00001110| 69 6f 6e 61 6c 20 5b 5b | 26 6f 72 20 22 26 72 65 |ional [[|&or "&re|
|00001120| 73 74 22 20 22 26 62 6f | 64 79 22 5d 20 63 6c 2d |st" "&bo|dy"] cl-|
|00001130| 6d 61 63 72 6f 2d 61 72 | 67 5d 5d 20 5b 26 6f 70 |macro-ar|g]] [&op|
|00001140| 74 69 6f 6e 61 6c 20 5b | 22 26 6b 65 79 22 20 5b |tional [|"&key" [|
|00001150| 26 72 65 73 74 20 5b 26 | 6f 72 20 28 5b 26 6f 72 |&rest [&|or ([&or|
|00001160| 20 28 73 79 6d 62 6f 6c | 70 20 63 6c 2d 6d 61 63 | (symbol|p cl-mac|
|00001170| 72 6f 2d 61 72 67 29 20 | 61 72 67 5d 20 26 6f 70 |ro-arg) |arg] &op|
|00001180| 74 69 6f 6e 61 6c 20 64 | 65 66 2d 66 6f 72 6d 20 |tional d|ef-form |
|00001190| 63 6c 2d 6d 61 63 72 6f | 2d 61 72 67 29 20 61 72 |cl-macro|-arg) ar|
|000011a0| 67 5d 5d 20 26 6f 70 74 | 69 6f 6e 61 6c 20 22 26 |g]] &opt|ional "&|
|000011b0| 61 6c 6c 6f 77 2d 6f 74 | 68 65 72 2d 6b 65 79 77 |allow-ot|her-keyw|
|000011c0| 6f 72 64 73 22 5d 5d 20 | 5b 26 6f 70 74 69 6f 6e |ords"]] |[&option|
|000011d0| 61 6c 20 5b 22 26 61 75 | 78 22 20 26 72 65 73 74 |al ["&au|x" &rest|
|000011e0| 20 26 6f 72 20 28 73 79 | 6d 62 6f 6c 70 20 26 6f | &or (sy|mbolp &o|
|000011f0| 70 74 69 6f 6e 61 6c 20 | 64 65 66 2d 66 6f 72 6d |ptional |def-form|
|00001200| 29 20 73 79 6d 62 6f 6c | 70 5d 5d 20 5b 26 6f 70 |) symbol|p]] [&op|
|00001210| 74 69 6f 6e 61 6c 20 22 | 26 65 6e 76 69 72 6f 6e |tional "|&environ|
|00001220| 6d 65 6e 74 22 20 61 72 | 67 5d 29 29 20 63 6c 2d |ment" ar|g])) cl-|
|00001230| 6d 61 63 72 6f 2d 61 72 | 67 20 28 26 6f 72 20 61 |macro-ar|g (&or a|
|00001240| 72 67 20 63 6c 2d 6d 61 | 63 72 6f 2d 6c 69 73 74 |rg cl-ma|cro-list|
|00001250| 31 29 20 63 6c 2d 6d 61 | 63 72 6f 2d 6c 69 73 74 |1) cl-ma|cro-list|
|00001260| 31 20 28 28 5b 26 6f 70 | 74 69 6f 6e 61 6c 20 22 |1 (([&op|tional "|
|00001270| 26 77 68 6f 6c 65 22 20 | 61 72 67 5d 20 5b 26 72 |&whole" |arg] [&r|
|00001280| 65 73 74 20 63 6c 2d 6d | 61 63 72 6f 2d 61 72 67 |est cl-m|acro-arg|
|00001290| 5d 20 5b 26 6f 70 74 69 | 6f 6e 61 6c 20 5b 22 26 |] [&opti|onal ["&|
|000012a0| 6f 70 74 69 6f 6e 61 6c | 22 20 26 72 65 73 74 20 |optional|" &rest |
|000012b0| 26 6f 72 20 28 63 6c 2d | 6d 61 63 72 6f 2d 61 72 |&or (cl-|macro-ar|
|000012c0| 67 20 26 6f 70 74 69 6f | 6e 61 6c 20 64 65 66 2d |g &optio|nal def-|
|000012d0| 66 6f 72 6d 20 63 6c 2d | 6d 61 63 72 6f 2d 61 72 |form cl-|macro-ar|
|000012e0| 67 29 20 61 72 67 5d 5d | 20 5b 26 6f 70 74 69 6f |g) arg]]| [&optio|
|000012f0| 6e 61 6c 20 5b 5b 26 6f | 72 20 22 26 72 65 73 74 |nal [[&o|r "&rest|
|00001300| 22 20 22 26 62 6f 64 79 | 22 5d 20 63 6c 2d 6d 61 |" "&body|"] cl-ma|
|00001310| 63 72 6f 2d 61 72 67 5d | 5d 20 5b 26 6f 70 74 69 |cro-arg]|] [&opti|
|00001320| 6f 6e 61 6c 20 5b 22 26 | 6b 65 79 22 20 5b 26 72 |onal ["&|key" [&r|
|00001330| 65 73 74 20 5b 26 6f 72 | 20 28 5b 26 6f 72 20 28 |est [&or| ([&or (|
|00001340| 73 79 6d 62 6f 6c 70 20 | 63 6c 2d 6d 61 63 72 6f |symbolp |cl-macro|
|00001350| 2d 61 72 67 29 20 61 72 | 67 5d 20 26 6f 70 74 69 |-arg) ar|g] &opti|
|00001360| 6f 6e 61 6c 20 64 65 66 | 2d 66 6f 72 6d 20 63 6c |onal def|-form cl|
|00001370| 2d 6d 61 63 72 6f 2d 61 | 72 67 29 20 61 72 67 5d |-macro-a|rg) arg]|
|00001380| 5d 20 26 6f 70 74 69 6f | 6e 61 6c 20 22 26 61 6c |] &optio|nal "&al|
|00001390| 6c 6f 77 2d 6f 74 68 65 | 72 2d 6b 65 79 77 6f 72 |low-othe|r-keywor|
|000013a0| 64 73 22 5d 5d 20 5b 26 | 6f 70 74 69 6f 6e 61 6c |ds"]] [&|optional|
|000013b0| 20 5b 22 26 61 75 78 22 | 20 26 72 65 73 74 20 26 | ["&aux"| &rest &|
|000013c0| 6f 72 20 28 73 79 6d 62 | 6f 6c 70 20 26 6f 70 74 |or (symb|olp &opt|
|000013d0| 69 6f 6e 61 6c 20 64 65 | 66 2d 66 6f 72 6d 29 20 |ional de|f-form) |
|000013e0| 73 79 6d 62 6f 6c 70 5d | 5d 20 2e 20 5b 26 6f 72 |symbolp]|] . [&or|
|000013f0| 20 61 72 67 20 6e 69 6c | 5d 29 29 20 64 65 66 75 | arg nil|])) defu|
|00001400| 6e 2a 20 28 26 64 65 66 | 69 6e 65 20 6e 61 6d 65 |n* (&def|ine name|
|00001410| 20 63 6c 2d 6c 61 6d 62 | 64 61 2d 6c 69 73 74 20 | cl-lamb|da-list |
|00001420| 63 6c 2d 64 65 63 6c 61 | 72 61 74 69 6f 6e 73 2d |cl-decla|rations-|
|00001430| 6f 72 2d 73 74 72 69 6e | 67 20 5b 26 6f 70 74 69 |or-strin|g [&opti|
|00001440| 6f 6e 61 6c 20 28 22 69 | 6e 74 65 72 61 63 74 69 |onal ("i|nteracti|
|00001450| 76 65 22 20 69 6e 74 65 | 72 61 63 74 69 76 65 29 |ve" inte|ractive)|
|00001460| 5d 20 64 65 66 2d 62 6f | 64 79 29 20 64 65 66 73 |] def-bo|dy) defs|
|00001470| 75 62 73 74 2a 20 28 26 | 64 65 66 69 6e 65 20 6e |ubst* (&|define n|
|00001480| 61 6d 65 20 63 6c 2d 6d | 61 63 72 6f 2d 6c 69 73 |ame cl-m|acro-lis|
|00001490| 74 20 63 6c 2d 64 65 63 | 6c 61 72 61 74 69 6f 6e |t cl-dec|laration|
|000014a0| 73 2d 6f 72 2d 73 74 72 | 69 6e 67 20 64 65 66 2d |s-or-str|ing def-|
|000014b0| 62 6f 64 79 29 20 64 65 | 66 69 6e 65 2d 63 6f 6d |body) de|fine-com|
|000014c0| 70 69 6c 65 72 2d 6d 61 | 63 72 6f 20 66 75 6e 63 |piler-ma|cro func|
|000014d0| 74 69 6f 6e 2a 20 28 26 | 6f 72 20 73 79 6d 62 6f |tion* (&|or symbo|
|000014e0| 6c 70 20 28 22 6c 61 6d | 62 64 61 22 20 63 6c 2d |lp ("lam|bda" cl-|
|000014f0| 6c 61 6d 62 64 61 2d 65 | 78 70 72 29 29 20 63 6c |lambda-e|xpr)) cl|
|00001500| 2d 6c 61 6d 62 64 61 2d | 65 78 70 72 20 28 26 64 |-lambda-|expr (&d|
|00001510| 65 66 69 6e 65 20 63 6c | 2d 6c 61 6d 62 64 61 2d |efine cl|-lambda-|
|00001520| 6c 69 73 74 20 64 65 66 | 2d 62 6f 64 79 29 20 64 |list def|-body) d|
|00001530| 65 66 73 74 72 75 63 74 | 20 28 26 64 65 66 69 6e |efstruct| (&defin|
|00001540| 65 20 5b 26 6f 72 20 73 | 79 6d 62 6f 6c 70 20 28 |e [&or s|ymbolp (|
|00001550| 66 65 6e 63 65 20 73 79 | 6d 62 6f 6c 70 20 26 72 |fence sy|mbolp &r|
|00001560| 65 73 74 20 28 26 6f 72 | 20 5b 22 3a 63 6f 6e 63 |est (&or| [":conc|
|00001570| 2d 6e 61 6d 65 22 20 26 | 6f 72 20 73 74 72 69 6e |-name" &|or strin|
|00001580| 67 70 20 22 6e 69 6c 22 | 5d 20 5b 22 3a 63 6f 6e |gp "nil"|] [":con|
|00001590| 73 74 72 75 63 74 6f 72 | 22 20 73 79 6d 62 6f 6c |structor|" symbol|
|000015a0| 70 20 26 6f 70 74 69 6f | 6e 61 6c 20 63 6c 2d 6c |p &optio|nal cl-l|
|000015b0| 61 6d 62 64 61 2d 6c 69 | 73 74 5d 20 5b 22 3a 63 |ambda-li|st] [":c|
|000015c0| 6f 70 69 65 72 22 20 73 | 79 6d 62 6f 6c 70 5d 20 |opier" s|ymbolp] |
|000015d0| 5b 22 3a 70 72 65 64 69 | 63 61 74 65 22 20 73 79 |[":predi|cate" sy|
|000015e0| 6d 62 6f 6c 70 5d 20 5b | 22 3a 69 6e 63 6c 75 64 |mbolp] [|":includ|
|000015f0| 65 22 20 73 79 6d 62 6f | 6c 70 20 26 72 65 73 74 |e" symbo|lp &rest|
|00001600| 20 73 65 78 70 5d 29 29 | 5d 20 5b 26 6f 70 74 69 | sexp]))|] [&opti|
|00001610| 6f 6e 61 6c 20 73 74 72 | 69 6e 67 70 5d 20 26 72 |onal str|ingp] &r|
|00001620| 65 73 74 20 26 6f 72 20 | 73 79 6d 62 6f 6c 70 20 |est &or |symbolp |
|00001630| 28 73 79 6d 62 6f 6c 70 | 20 64 65 66 2d 66 6f 72 |(symbolp| def-for|
|00001640| 6d 20 26 6f 70 74 69 6f | 6e 61 6c 20 22 3a 72 65 |m &optio|nal ":re|
|00001650| 61 64 2d 6f 6e 6c 79 22 | 20 73 65 78 70 29 29 20 |ad-only"| sexp)) |
|00001660| 6c 6f 6f 70 20 28 5b 26 | 6f 70 74 69 6f 6e 61 6c |loop ([&|optional|
|00001670| 20 5b 22 6e 61 6d 65 64 | 22 20 73 79 6d 62 6f 6c | ["named|" symbol|
|00001680| 70 5d 5d 20 5b 26 72 65 | 73 74 20 26 6f 72 20 5b |p]] [&re|st &or [|
|00001690| 22 72 65 70 65 61 74 22 | 20 66 6f 72 6d 5d 20 6c |"repeat"| form] l|
|000016a0| 6f 6f 70 2d 66 6f 72 2d | 61 73 20 6c 6f 6f 70 2d |oop-for-|as loop-|
|000016b0| 77 69 74 68 20 6c 6f 6f | 70 2d 69 6e 69 74 69 61 |with loo|p-initia|
|000016c0| 6c 2d 66 69 6e 61 6c 5d | 20 5b 26 72 65 73 74 20 |l-final]| [&rest |
|000016d0| 6c 6f 6f 70 2d 63 6c 61 | 75 73 65 5d 29 20 6c 6f |loop-cla|use]) lo|
|000016e0| 6f 70 2d 77 69 74 68 20 | 28 22 77 69 74 68 22 20 |op-with |("with" |
|000016f0| 6c 6f 6f 70 2d 76 61 72 | 20 6c 6f 6f 70 2d 74 79 |loop-var| loop-ty|
|00001700| 70 65 2d 73 70 65 63 20 | 5b 26 6f 70 74 69 6f 6e |pe-spec |[&option|
|00001710| 61 6c 20 5b 22 3d 22 20 | 66 6f 72 6d 5d 5d 20 26 |al ["=" |form]] &|
|00001720| 72 65 73 74 20 5b 22 61 | 6e 64 22 20 6c 6f 6f 70 |rest ["a|nd" loop|
|00001730| 2d 76 61 72 20 6c 6f 6f | 70 2d 74 79 70 65 2d 73 |-var loo|p-type-s|
|00001740| 70 65 63 20 5b 26 6f 70 | 74 69 6f 6e 61 6c 20 5b |pec [&op|tional [|
|00001750| 22 3d 22 20 66 6f 72 6d | 5d 5d 5d 29 20 6c 6f 6f |"=" form|]]]) loo|
|00001760| 70 2d 66 6f 72 2d 61 73 | 20 28 5b 26 6f 72 20 22 |p-for-as| ([&or "|
|00001770| 66 6f 72 22 20 22 61 73 | 22 5d 20 6c 6f 6f 70 2d |for" "as|"] loop-|
|00001780| 66 6f 72 2d 61 73 2d 73 | 75 62 63 6c 61 75 73 65 |for-as-s|ubclause|
|00001790| 20 26 72 65 73 74 20 5b | 22 61 6e 64 22 20 6c 6f | &rest [|"and" lo|
|000017a0| 6f 70 2d 66 6f 72 2d 61 | 73 2d 73 75 62 63 6c 61 |op-for-a|s-subcla|
|000017b0| 75 73 65 5d 29 20 6c 6f | 6f 70 2d 66 6f 72 2d 61 |use]) lo|op-for-a|
|000017c0| 73 2d 73 75 62 63 6c 61 | 75 73 65 20 28 6c 6f 6f |s-subcla|use (loo|
|000017d0| 70 2d 76 61 72 20 6c 6f | 6f 70 2d 74 79 70 65 2d |p-var lo|op-type-|
|000017e0| 73 70 65 63 20 26 6f 72 | 20 5b 5b 26 6f 72 20 22 |spec &or| [[&or "|
|000017f0| 69 6e 22 20 22 6f 6e 22 | 20 22 69 6e 2d 72 65 66 |in" "on"| "in-ref|
|00001800| 22 20 22 61 63 72 6f 73 | 73 2d 72 65 66 22 5d 20 |" "acros|s-ref"] |
|00001810| 66 6f 72 6d 20 26 6f 70 | 74 69 6f 6e 61 6c 20 5b |form &op|tional [|
|00001820| 22 62 79 22 20 66 75 6e | 63 74 69 6f 6e 2d 66 6f |"by" fun|ction-fo|
|00001830| 72 6d 5d 5d 20 5b 22 3d | 22 20 66 6f 72 6d 20 26 |rm]] ["=|" form &|
|00001840| 6f 70 74 69 6f 6e 61 6c | 20 5b 22 74 68 65 6e 22 |optional| ["then"|
|00001850| 20 66 6f 72 6d 5d 5d 20 | 5b 22 61 63 72 6f 73 73 | form]] |["across|
|00001860| 22 20 66 6f 72 6d 5d 20 | 5b 22 62 65 69 6e 67 22 |" form] |["being"|
|00001870| 20 5b 26 6f 72 20 22 74 | 68 65 22 20 22 65 61 63 | [&or "t|he" "eac|
|00001880| 68 22 5d 20 26 6f 72 20 | 5b 5b 26 6f 72 20 22 65 |h"] &or |[[&or "e|
|00001890| 6c 65 6d 65 6e 74 22 20 | 22 65 6c 65 6d 65 6e 74 |lement" |"element|
|000018a0| 73 22 5d 20 5b 26 6f 72 | 20 22 6f 66 22 20 22 69 |s"] [&or| "of" "i|
|000018b0| 6e 22 20 22 6f 66 2d 72 | 65 66 22 5d 20 66 6f 72 |n" "of-r|ef"] for|
|000018c0| 6d 20 26 6f 70 74 69 6f | 6e 61 6c 20 22 75 73 69 |m &optio|nal "usi|
|000018d0| 6e 67 22 20 5b 22 69 6e | 64 65 78 22 20 73 79 6d |ng" ["in|dex" sym|
|000018e0| 62 6f 6c 70 5d 5d 20 5b | 5b 26 6f 72 20 22 68 61 |bolp]] [|[&or "ha|
|000018f0| 73 68 2d 6b 65 79 22 20 | 22 68 61 73 68 2d 6b 65 |sh-key" |"hash-ke|
|00001900| 79 73 22 20 22 68 61 73 | 68 2d 76 61 6c 75 65 22 |ys" "has|h-value"|
|00001910| 20 22 68 61 73 68 2d 76 | 61 6c 75 65 73 22 5d 20 | "hash-v|alues"] |
|00001920| 5b 26 6f 72 20 22 6f 66 | 22 20 22 69 6e 22 5d 20 |[&or "of|" "in"] |
|00001930| 68 61 73 68 2d 74 61 62 | 6c 65 2d 70 20 26 6f 70 |hash-tab|le-p &op|
|00001940| 74 69 6f 6e 61 6c 20 5b | 22 75 73 69 6e 67 22 20 |tional [|"using" |
|00001950| 28 5b 26 6f 72 20 22 68 | 61 73 68 2d 76 61 6c 75 |([&or "h|ash-valu|
|00001960| 65 22 20 22 68 61 73 68 | 2d 76 61 6c 75 65 73 22 |e" "hash|-values"|
|00001970| 20 22 68 61 73 68 2d 6b | 65 79 22 20 22 68 61 73 | "hash-k|ey" "has|
|00001980| 68 2d 6b 65 79 73 22 5d | 20 73 65 78 70 29 5d 5d |h-keys"]| sexp)]]|
|00001990| 20 5b 5b 26 6f 72 20 22 | 73 79 6d 62 6f 6c 22 20 | [[&or "|symbol" |
|000019a0| 22 70 72 65 73 65 6e 74 | 2d 73 79 6d 62 6f 6c 22 |"present|-symbol"|
|000019b0| 20 22 65 78 74 65 72 6e | 61 6c 2d 73 79 6d 62 6f | "extern|al-symbo|
|000019c0| 6c 22 20 22 73 79 6d 62 | 6f 6c 73 22 20 22 70 72 |l" "symb|ols" "pr|
|000019d0| 65 73 65 6e 74 2d 73 79 | 6d 62 6f 6c 73 22 20 22 |esent-sy|mbols" "|
|000019e0| 65 78 74 65 72 6e 61 6c | 2d 73 79 6d 62 6f 6c 73 |external|-symbols|
|000019f0| 22 5d 20 5b 26 6f 72 20 | 22 69 6e 22 20 22 6f 66 |"] [&or |"in" "of|
|00001a00| 22 5d 20 70 61 63 6b 61 | 67 65 2d 70 5d 20 5b 5b |"] packa|ge-p] [[|
|00001a10| 26 6f 72 20 22 66 72 61 | 6d 65 22 20 22 66 72 61 |&or "fra|me" "fra|
|00001a20| 6d 65 73 22 20 22 73 63 | 72 65 65 6e 22 20 22 73 |mes" "sc|reen" "s|
|00001a30| 63 72 65 65 6e 73 22 20 | 22 62 75 66 66 65 72 22 |creens" |"buffer"|
|00001a40| 20 22 62 75 66 66 65 72 | 73 22 5d 5d 20 5b 5b 26 | "buffer|s"]] [[&|
|00001a50| 6f 72 20 22 77 69 6e 64 | 6f 77 22 20 22 77 69 6e |or "wind|ow" "win|
|00001a60| 64 6f 77 73 22 5d 20 5b | 26 6f 72 20 22 6f 66 22 |dows"] [|&or "of"|
|00001a70| 20 22 69 6e 22 5d 20 66 | 6f 72 6d 5d 20 5b 5b 26 | "in"] f|orm] [[&|
|00001a80| 6f 72 20 22 6f 76 65 72 | 6c 61 79 22 20 22 6f 76 |or "over|lay" "ov|
|00001a90| 65 72 6c 61 79 73 22 20 | 22 65 78 74 65 6e 74 22 |erlays" |"extent"|
|00001aa0| 20 22 65 78 74 65 6e 74 | 73 22 5d 20 5b 26 6f 72 | "extent|s"] [&or|
|00001ab0| 20 22 6f 66 22 20 22 69 | 6e 22 5d 20 66 6f 72 6d | "of" "i|n"] form|
|00001ac0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 5b 5b 26 6f 72 | &option|al [[&or|
|00001ad0| 20 22 66 72 6f 6d 22 20 | 22 74 6f 22 5d 20 66 6f | "from" |"to"] fo|
|00001ae0| 72 6d 5d 5d 20 5b 5b 26 | 6f 72 20 22 69 6e 74 65 |rm]] [[&|or "inte|
|00001af0| 72 76 61 6c 22 20 22 69 | 6e 74 65 72 76 61 6c 73 |rval" "i|ntervals|
|00001b00| 22 5d 20 5b 26 6f 72 20 | 22 69 6e 22 20 22 6f 66 |"] [&or |"in" "of|
|00001b10| 22 5d 20 66 6f 72 6d 20 | 26 6f 70 74 69 6f 6e 61 |"] form |&optiona|
|00001b20| 6c 20 5b 5b 26 6f 72 20 | 22 66 72 6f 6d 22 20 22 |l [[&or |"from" "|
|00001b30| 74 6f 22 5d 20 66 6f 72 | 6d 5d 20 5b 22 70 72 6f |to"] for|m] ["pro|
|00001b40| 70 65 72 74 79 22 20 66 | 6f 72 6d 5d 5d 20 5b 5b |perty" f|orm]] [[|
|00001b50| 26 6f 72 20 22 6b 65 79 | 2d 63 6f 64 65 22 20 22 |&or "key|-code" "|
|00001b60| 6b 65 79 2d 63 6f 64 65 | 73 22 20 22 6b 65 79 2d |key-code|s" "key-|
|00001b70| 73 65 71 22 20 22 6b 65 | 79 2d 73 65 71 73 22 20 |seq" "ke|y-seqs" |
|00001b80| 22 6b 65 79 2d 62 69 6e | 64 69 6e 67 22 20 22 6b |"key-bin|ding" "k|
|00001b90| 65 79 2d 62 69 6e 64 69 | 6e 67 73 22 5d 20 5b 26 |ey-bindi|ngs"] [&|
|00001ba0| 6f 72 20 22 69 6e 22 20 | 22 6f 66 22 5d 20 66 6f |or "in" |"of"] fo|
|00001bb0| 72 6d 20 26 6f 70 74 69 | 6f 6e 61 6c 20 5b 22 75 |rm &opti|onal ["u|
|00001bc0| 73 69 6e 67 22 20 28 5b | 26 6f 72 20 22 6b 65 79 |sing" ([|&or "key|
|00001bd0| 2d 63 6f 64 65 22 20 22 | 6b 65 79 2d 63 6f 64 65 |-code" "|key-code|
|00001be0| 73 22 20 22 6b 65 79 2d | 73 65 71 22 20 22 6b 65 |s" "key-|seq" "ke|
|00001bf0| 79 2d 73 65 71 73 22 20 | 22 6b 65 79 2d 62 69 6e |y-seqs" |"key-bin|
|00001c00| 64 69 6e 67 22 20 22 6b | 65 79 2d 62 69 6e 64 69 |ding" "k|ey-bindi|
|00001c10| 6e 67 73 22 5d 20 73 65 | 78 70 29 5d 5d 20 5b 73 |ngs"] se|xp)]] [s|
|00001c20| 79 6d 62 6f 6c 70 20 26 | 72 65 73 74 20 5b 26 6f |ymbolp &|rest [&o|
|00001c30| 72 20 73 79 6d 62 6f 6c | 70 20 66 6f 72 6d 5d 5d |r symbol|p form]]|
|00001c40| 5d 20 5b 5b 26 6f 70 74 | 69 6f 6e 61 6c 20 5b 5b |] [[&opt|ional [[|
|00001c50| 26 6f 72 20 22 66 72 6f | 6d 22 20 22 64 6f 77 6e |&or "fro|m" "down|
|00001c60| 66 72 6f 6d 22 20 22 75 | 70 66 72 6f 6d 22 5d 20 |from" "u|pfrom"] |
|00001c70| 66 6f 72 6d 5d 5d 20 5b | 26 6f 70 74 69 6f 6e 61 |form]] [|&optiona|
|00001c80| 6c 20 5b 5b 26 6f 72 20 | 22 74 6f 22 20 22 64 6f |l [[&or |"to" "do|
|00001c90| 77 6e 74 6f 22 20 22 75 | 70 74 6f 22 20 22 62 65 |wnto" "u|pto" "be|
|00001ca0| 6c 6f 77 22 20 22 61 62 | 6f 76 65 22 5d 20 66 6f |low" "ab|ove"] fo|
|00001cb0| 72 6d 5d 5d 20 5b 26 6f | 70 74 69 6f 6e 61 6c 20 |rm]] [&o|ptional |
|00001cc0| 5b 22 62 79 22 20 66 6f | 72 6d 5d 5d 5d 29 20 6c |["by" fo|rm]]]) l|
|00001cd0| 6f 6f 70 2d 69 6e 69 74 | 69 61 6c 2d 66 69 6e 61 |oop-init|ial-fina|
|00001ce0| 6c 20 28 26 6f 72 20 5b | 22 69 6e 69 74 69 61 6c |l (&or [|"initial|
|00001cf0| 6c 79 22 20 26 72 65 73 | 74 20 6c 6f 6f 70 2d 6e |ly" &res|t loop-n|
|00001d00| 6f 6e 2d 61 74 6f 6d 69 | 63 2d 65 78 70 72 5d 20 |on-atomi|c-expr] |
|00001d10| 5b 22 66 69 6e 61 6c 6c | 79 22 20 26 6f 72 20 5b |["finall|y" &or [|
|00001d20| 5b 26 6f 70 74 69 6f 6e | 61 6c 20 26 6f 72 20 22 |[&option|al &or "|
|00001d30| 64 6f 22 20 22 64 6f 69 | 6e 67 22 5d 20 26 72 65 |do" "doi|ng"] &re|
|00001d40| 73 74 20 6c 6f 6f 70 2d | 6e 6f 6e 2d 61 74 6f 6d |st loop-|non-atom|
|00001d50| 69 63 2d 65 78 70 72 5d | 20 5b 22 72 65 74 75 72 |ic-expr]| ["retur|
|00001d60| 6e 22 20 66 6f 72 6d 5d | 5d 29 20 6c 6f 6f 70 2d |n" form]|]) loop-|
|00001d70| 61 6e 64 2d 63 6c 61 75 | 73 65 20 28 6c 6f 6f 70 |and-clau|se (loop|
|00001d80| 2d 63 6c 61 75 73 65 20 | 26 72 65 73 74 20 5b 22 |-clause |&rest ["|
|00001d90| 61 6e 64 22 20 6c 6f 6f | 70 2d 63 6c 61 75 73 65 |and" loo|p-clause|
|00001da0| 5d 29 20 6c 6f 6f 70 2d | 63 6c 61 75 73 65 20 28 |]) loop-|clause (|
|00001db0| 26 6f 72 20 5b 5b 26 6f | 72 20 22 77 68 69 6c 65 |&or [[&o|r "while|
|00001dc0| 22 20 22 75 6e 74 69 6c | 22 20 22 61 6c 77 61 79 |" "until|" "alway|
|00001dd0| 73 22 20 22 6e 65 76 65 | 72 22 20 22 74 68 65 72 |s" "neve|r" "ther|
|00001de0| 65 69 73 22 5d 20 66 6f | 72 6d 5d 20 5b 5b 26 6f |eis"] fo|rm] [[&o|
|00001df0| 72 20 22 63 6f 6c 6c 65 | 63 74 22 20 22 63 6f 6c |r "colle|ct" "col|
|00001e00| 6c 65 63 74 69 6e 67 22 | 20 22 61 70 70 65 6e 64 |lecting"| "append|
|00001e10| 22 20 22 61 70 70 65 6e | 64 69 6e 67 22 20 22 6e |" "appen|ding" "n|
|00001e20| 63 6f 6e 63 22 20 22 6e | 63 6f 6e 63 69 6e 67 22 |conc" "n|concing"|
|00001e30| 20 22 63 6f 6e 63 61 74 | 22 20 22 76 63 6f 6e 63 | "concat|" "vconc|
|00001e40| 61 74 22 5d 20 66 6f 72 | 6d 20 5b 26 6f 70 74 69 |at"] for|m [&opti|
|00001e50| 6f 6e 61 6c 20 5b 22 69 | 6e 74 6f 22 20 6c 6f 6f |onal ["i|nto" loo|
|00001e60| 70 2d 76 61 72 5d 5d 5d | 20 5b 5b 26 6f 72 20 22 |p-var]]]| [[&or "|
|00001e70| 63 6f 75 6e 74 22 20 22 | 63 6f 75 6e 74 69 6e 67 |count" "|counting|
|00001e80| 22 20 22 73 75 6d 22 20 | 22 73 75 6d 6d 69 6e 67 |" "sum" |"summing|
|00001e90| 22 20 22 6d 61 78 69 6d | 69 7a 65 22 20 22 6d 61 |" "maxim|ize" "ma|
|00001ea0| 78 69 6d 69 7a 69 6e 67 | 22 20 22 6d 69 6e 69 6d |ximizing|" "minim|
|00001eb0| 69 7a 65 22 20 22 6d 69 | 6e 69 6d 69 7a 69 6e 67 |ize" "mi|nimizing|
|00001ec0| 22 5d 20 66 6f 72 6d 20 | 5b 26 6f 70 74 69 6f 6e |"] form |[&option|
|00001ed0| 61 6c 20 5b 22 69 6e 74 | 6f 22 20 6c 6f 6f 70 2d |al ["int|o" loop-|
|00001ee0| 76 61 72 5d 5d 20 6c 6f | 6f 70 2d 74 79 70 65 2d |var]] lo|op-type-|
|00001ef0| 73 70 65 63 5d 20 5b 5b | 26 6f 72 20 22 69 66 22 |spec] [[|&or "if"|
|00001f00| 20 22 77 68 65 6e 22 20 | 22 75 6e 6c 65 73 73 22 | "when" |"unless"|
|00001f10| 5d 20 66 6f 72 6d 20 6c | 6f 6f 70 2d 61 6e 64 2d |] form l|oop-and-|
|00001f20| 63 6c 61 75 73 65 20 5b | 26 6f 70 74 69 6f 6e 61 |clause [|&optiona|
|00001f30| 6c 20 5b 22 65 6c 73 65 | 22 20 6c 6f 6f 70 2d 61 |l ["else|" loop-a|
|00001f40| 6e 64 2d 63 6c 61 75 73 | 65 5d 5d 20 5b 26 6f 70 |nd-claus|e]] [&op|
|00001f50| 74 69 6f 6e 61 6c 20 22 | 65 6e 64 22 5d 5d 20 5b |tional "|end"]] [|
|00001f60| 5b 26 6f 72 20 22 64 6f | 22 20 22 64 6f 69 6e 67 |[&or "do|" "doing|
|00001f70| 22 5d 20 26 72 65 73 74 | 20 6c 6f 6f 70 2d 6e 6f |"] &rest| loop-no|
|00001f80| 6e 2d 61 74 6f 6d 69 63 | 2d 65 78 70 72 5d 20 5b |n-atomic|-expr] [|
|00001f90| 22 72 65 74 75 72 6e 22 | 20 66 6f 72 6d 5d 20 6c |"return"| form] l|
|00001fa0| 6f 6f 70 2d 69 6e 69 74 | 69 61 6c 2d 66 69 6e 61 |oop-init|ial-fina|
|00001fb0| 6c 29 20 6c 6f 6f 70 2d | 6e 6f 6e 2d 61 74 6f 6d |l) loop-|non-atom|
|00001fc0| 69 63 2d 65 78 70 72 20 | 28 5b 26 6e 6f 74 20 61 |ic-expr |([¬ a|
|00001fd0| 74 6f 6d 5d 20 66 6f 72 | 6d 29 20 6c 6f 6f 70 2d |tom] for|m) loop-|
|00001fe0| 76 61 72 20 28 26 6f 72 | 20 28 6c 6f 6f 70 2d 76 |var (&or| (loop-v|
|00001ff0| 61 72 20 2e 20 5b 26 6f | 72 20 6e 69 6c 20 6c 6f |ar . [&o|r nil lo|
|00002000| 6f 70 2d 76 61 72 5d 29 | 20 5b 66 65 6e 63 65 20 |op-var])| [fence |
|00002010| 73 79 6d 62 6f 6c 70 5d | 29 20 6c 6f 6f 70 2d 74 |symbolp]|) loop-t|
|00002020| 79 70 65 2d 73 70 65 63 | 20 28 26 6f 70 74 69 6f |ype-spec| (&optio|
|00002030| 6e 61 6c 20 5b 22 6f 66 | 2d 74 79 70 65 22 20 6c |nal ["of|-type" l|
|00002040| 6f 6f 70 2d 64 2d 74 79 | 70 65 2d 73 70 65 63 5d |oop-d-ty|pe-spec]|
|00002050| 29 20 6c 6f 6f 70 2d 64 | 2d 74 79 70 65 2d 73 70 |) loop-d|-type-sp|
|00002060| 65 63 20 28 26 6f 72 20 | 28 6c 6f 6f 70 2d 64 2d |ec (&or |(loop-d-|
|00002070| 74 79 70 65 2d 73 70 65 | 63 20 2e 20 5b 26 6f 72 |type-spe|c . [&or|
|00002080| 20 6e 69 6c 20 6c 6f 6f | 70 2d 64 2d 74 79 70 65 | nil loo|p-d-type|
|00002090| 2d 73 70 65 63 5d 29 20 | 63 6c 2d 74 79 70 65 2d |-spec]) |cl-type-|
|000020a0| 73 70 65 63 29 5d 20 34 | 29 0a |spec)] 4|). |
+--------+-------------------------+-------------------------+--------+--------+
