home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-07-05 | 71.8 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 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 4a 75 6c 20 20 36 |du on Tu|e Jul 6|
|00000040| 20 30 30 3a 33 38 3a 33 | 37 20 31 39 39 33 0a 3b | 00:38:3|7 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 63 6c 2e | 65 6c 0a 3b 3b 3b 20 65 |lisp/cl.|el.;;; e|
|00000080| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 31 39 2e |macs ver|sion 19.|
|00000090| 31 35 2e 31 36 2e 0a 3b | 3b 3b 20 62 79 74 65 63 |15.16..;|;; bytec|
|000000a0| 6f 6d 70 20 76 65 72 73 | 69 6f 6e 20 46 53 46 20 |omp vers|ion FSF |
|000000b0| 32 2e 31 30 0a 3b 3b 3b | 20 6f 70 74 69 6d 69 7a |2.10.;;;| optimiz|
|000000c0| 61 74 69 6f 6e 20 69 73 | 20 6f 6e 2e 0a 3b 3b 3b |ation is| on..;;;|
|000000d0| 20 74 68 69 73 20 66 69 | 6c 65 20 75 73 65 73 20 | this fi|le uses |
|000000e0| 6f 70 63 6f 64 65 73 20 | 77 68 69 63 68 20 64 6f |opcodes |which do|
|000000f0| 20 6e 6f 74 20 65 78 69 | 73 74 20 69 6e 20 45 6d | not exi|st in Em|
|00000100| 61 63 73 20 31 38 2e 0a | 0a 28 69 66 20 28 61 6e |acs 18..|.(if (an|
|00000110| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 6d 61 63 73 |d (bound|p 'emacs|
|00000120| 2d 76 65 72 73 69 6f 6e | 29 0a 09 20 28 6f 72 20 |-version|).. (or |
|00000130| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 70 |(and (bo|undp 'ep|
|00000140| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 20 65 70 |och::ver|sion) ep|
|00000150| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 0a 09 20 |och::ver|sion).. |
|00000160| 20 20 20 20 28 73 74 72 | 69 6e 67 2d 6c 65 73 73 | (str|ing-less|
|00000170| 70 20 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 20 |p emacs-|version |
|00000180| 22 31 39 22 29 29 29 0a | 20 20 20 20 28 65 72 72 |"19"))).| (err|
|00000190| 6f 72 20 22 54 68 69 73 | 20 66 69 6c 65 20 77 61 |or "This| file wa|
|000001a0| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|000001b0| 6d 61 63 73 20 31 39 22 | 29 29 0a 0a 28 62 79 74 |macs 19"|))..(byt|
|000001c0| 65 2d 63 6f 64 65 20 22 | c0 c1 21 84 08 00 c2 11 |e-code "|..!.....|
|000001d0| c0 87 22 20 5b 62 6f 75 | 6e 64 70 20 63 6c 2d 76 |.." [bou|ndp cl-v|
|000001e0| 65 72 73 69 6f 6e 20 22 | 33 2e 30 09 30 37 2d 46 |ersion "|3.0.07-F|
|000001f0| 65 62 72 75 61 72 79 2d | 31 39 39 33 22 5d 20 32 |ebruary-|1993"] 2|
|00000200| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 73 65 |).(defal|ias 'pse|
|00000210| 74 71 20 27 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |tq '(mac|ro . #[(|
|00000220| 26 72 65 73 74 20 61 72 | 67 73 29 20 22 08 47 c1 |&rest ar|gs) ".G.|
|00000230| a6 c2 55 84 0d 00 c3 c4 | 21 88 c5 08 21 10 c6 08 |..U.....|!...!...|
|00000240| 42 08 40 39 84 5c 22 00 | c3 c7 c8 08 40 21 5c 22 |B.@9.\".|....@!\"|
|00000250| 88 08 41 41 83 3b 00 08 | c9 08 41 40 c6 08 41 41 |..AA.;..|..A@..AA|
|00000260| 89 10 42 45 43 a1 88 82 | 14 00 87 22 20 5b 61 72 |..BEC...|..." [ar|
|00000270| 67 73 20 32 20 30 20 65 | 72 72 6f 72 20 22 4f 64 |gs 2 0 e|rror "Od|
|00000280| 64 20 6e 75 6d 62 65 72 | 20 6f 66 20 61 72 67 75 |d number| of argu|
|00000290| 6d 65 6e 74 73 20 74 6f | 20 60 70 73 65 74 71 27 |ments to| `psetq'|
|000002a0| 22 20 63 6f 70 79 2d 73 | 65 71 75 65 6e 63 65 20 |" copy-s|equence |
|000002b0| 73 65 74 71 20 22 60 70 | 73 65 74 71 27 20 65 78 |setq "`p|setq' ex|
|000002c0| 70 65 63 74 65 64 20 61 | 20 73 79 6d 62 6f 6c 2c |pected a| symbol,|
|000002d0| 20 66 6f 75 6e 64 20 27 | 25 73 27 2e 22 20 70 72 | found '|%s'." pr|
|000002e0| 69 6e 31 2d 74 6f 2d 73 | 74 72 69 6e 67 20 70 72 |in1-to-s|tring pr|
|000002f0| 6f 67 31 5d 20 37 20 22 | 5c 0a 28 70 73 65 74 71 |og1] 7 "|\.(psetq|
|00000300| 20 7b 56 41 52 49 41 42 | 4c 45 20 56 41 4c 55 45 | {VARIAB|LE VALUE|
|00000310| 7d 2e 2e 2e 29 3a 20 49 | 6e 20 70 61 72 61 6c 6c |}...): I|n parall|
|00000320| 65 6c 2c 20 73 65 74 20 | 65 61 63 68 20 56 41 52 |el, set |each VAR|
|00000330| 49 41 42 4c 45 20 74 6f | 20 69 74 73 20 56 41 4c |IABLE to| its VAL|
|00000340| 55 45 2e 0a 41 6c 6c 20 | 74 68 65 20 56 41 4c 55 |UE..All |the VALU|
|00000350| 45 73 20 61 72 65 20 65 | 76 61 6c 75 61 74 65 64 |Es are e|valuated|
|00000360| 2c 20 61 6e 64 20 74 68 | 65 6e 20 61 6c 6c 20 74 |, and th|en all t|
|00000370| 68 65 20 56 41 52 49 41 | 42 4c 45 73 20 61 72 65 |he VARIA|BLEs are|
|00000380| 20 73 65 74 2e 0a 41 73 | 69 64 65 20 66 72 6f 6d | set..As|ide from|
|00000390| 20 6f 72 64 65 72 20 6f | 66 20 65 76 61 6c 75 61 | order o|f evalua|
|000003a0| 74 69 6f 6e 2c 20 74 68 | 69 73 20 69 73 20 74 68 |tion, th|is is th|
|000003b0| 65 20 73 61 6d 65 20 61 | 73 20 60 73 65 74 71 27 |e same a|s `setq'|
|000003c0| 2e 22 5d 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |."])).(d|efalias |
|000003d0| 27 70 61 69 72 2d 77 69 | 74 68 2d 6e 65 77 73 79 |'pair-wi|th-newsy|
|000003e0| 6d 73 20 23 5b 28 6f 6c | 64 66 6f 72 6d 73 29 20 |ms #[(ol|dforms) |
|000003f0| 22 08 c1 89 1a 1b 89 1c | 89 1d 3c 83 12 00 0d 3f |".......|..<....?|
|00000400| 82 18 00 c6 c7 c8 0d 21 | 5c 22 29 84 34 00 c9 20 |.......!|\").4.. |
|00000410| 89 1e 5c 6e 0c 40 44 0b | 42 13 0e 5c 6e 5c 6e 42 |..\n.@D.|B..\n\nB|
|00000420| 12 29 0c 41 89 14 82 07 | 00 cb 0b 9f 5c 6e 9f 5c |.).A....|....\n.\|
|00000430| 22 2b 87 22 20 5b 6f 6c | 64 66 6f 72 6d 73 20 6e |"+." [ol|dforms n|
|00000440| 69 6c 20 6e 65 77 73 79 | 6d 73 20 62 69 6e 64 69 |il newsy|ms bindi|
|00000450| 6e 67 73 20 70 74 72 20 | 78 20 65 72 72 6f 72 20 |ngs ptr |x error |
|00000460| 22 65 6e 64 70 20 72 65 | 63 65 69 76 65 64 20 61 |"endp re|ceived a|
|00000470| 20 6e 6f 6e 2d 63 6f 6e | 73 2c 20 6e 6f 6e 2d 6e | non-con|s, non-n|
|00000480| 75 6c 6c 20 61 72 67 75 | 6d 65 6e 74 20 60 25 73 |ull argu|ment `%s|
|00000490| 27 22 20 70 72 69 6e 31 | 2d 74 6f 2d 73 74 72 69 |'" prin1|-to-stri|
|000004a0| 6e 67 20 67 65 6e 74 65 | 6d 70 20 6e 65 77 73 79 |ng gente|mp newsy|
|000004b0| 6d 20 76 61 6c 75 65 73 | 5d 20 35 20 22 5c 0a 50 |m values|] 5 "\.P|
|000004c0| 41 49 52 2d 57 49 54 48 | 2d 4e 45 57 53 59 4d 53 |AIR-WITH|-NEWSYMS|
|000004d0| 20 4f 4c 44 46 4f 52 4d | 53 0a 54 68 65 20 74 6f | OLDFORM|S.The to|
|000004e0| 70 2d 6c 65 76 65 6c 20 | 63 6f 6d 70 6f 6e 65 6e |p-level |componen|
|000004f0| 74 73 20 6f 66 20 74 68 | 65 20 6c 69 73 74 20 6f |ts of th|e list o|
|00000500| 6c 64 66 6f 72 6d 73 20 | 61 72 65 20 70 61 69 72 |ldforms |are pair|
|00000510| 65 64 20 77 69 74 68 20 | 66 72 65 73 68 0a 73 79 |ed with |fresh.sy|
|00000520| 6d 62 6f 6c 73 2c 20 74 | 68 65 20 70 61 69 72 69 |mbols, t|he pairi|
|00000530| 6e 67 73 20 6c 69 73 74 | 20 61 6e 64 20 74 68 65 |ngs list| and the|
|00000540| 20 6e 65 77 73 79 6d 73 | 20 6c 69 73 74 20 61 72 | newsyms| list ar|
|00000550| 65 20 72 65 74 75 72 6e | 65 64 2e 22 5d 29 0a 28 |e return|ed."]).(|
|00000560| 64 65 66 61 6c 69 61 73 | 20 27 7a 69 70 2d 6c 69 |defalias| 'zip-li|
|00000570| 73 74 73 20 23 5b 28 65 | 76 65 6e 73 20 6f 64 64 |sts #[(e|vens odd|
|00000580| 73 29 20 22 08 19 5c 6e | 1b 09 40 1c 0b 40 1d c6 |s) "..\n|..@..@..|
|00000590| 1e 07 09 89 1e 08 3c 83 | 1b 00 0e 08 3f 82 5c 22 |......<.|....?.\"|
|000005a0| 00 c9 ca cb 0e 08 21 5c | 22 29 84 56 00 0b 89 1e |......!\|").V....|
|000005b0| 08 3c 83 34 00 0e 08 3f | 82 3b 00 c9 ca cb 0e 08 |.<.4...?|.;......|
|000005c0| 21 5c 22 29 84 56 00 0d | 0c 0e 07 42 42 16 07 09 |!\").V..|...BB...|
|000005d0| 41 11 0b 41 13 09 40 14 | 0b 40 15 82 0d 00 0e 07 |A..A..@.|.@......|
|000005e0| 9f 2d 87 22 20 5b 65 76 | 65 6e 73 20 70 30 20 6f |.-." [ev|ens p0 o|
|000005f0| 64 64 73 20 70 31 20 65 | 76 65 6e 20 6f 64 64 20 |dds p1 e|ven odd |
|00000600| 6e 69 6c 20 72 65 73 75 | 6c 74 20 78 20 65 72 72 |nil resu|lt x err|
|00000610| 6f 72 20 22 65 6e 64 70 | 20 72 65 63 65 69 76 65 |or "endp| receive|
|00000620| 64 20 61 20 6e 6f 6e 2d | 63 6f 6e 73 2c 20 6e 6f |d a non-|cons, no|
|00000630| 6e 2d 6e 75 6c 6c 20 61 | 72 67 75 6d 65 6e 74 20 |n-null a|rgument |
|00000640| 60 25 73 27 22 20 70 72 | 69 6e 31 2d 74 6f 2d 73 |`%s'" pr|in1-to-s|
|00000650| 74 72 69 6e 67 5d 20 35 | 20 22 5c 0a 4d 65 72 67 |tring] 5| "\.Merg|
|00000660| 65 20 74 77 6f 20 6c 69 | 73 74 73 20 45 56 45 4e |e two li|sts EVEN|
|00000670| 53 20 61 6e 64 20 4f 44 | 44 53 2c 20 74 61 6b 69 |S and OD|DS, taki|
|00000680| 6e 67 20 65 6c 74 73 20 | 66 72 6f 6d 20 65 61 63 |ng elts |from eac|
|00000690| 68 20 6c 69 73 74 20 61 | 6c 74 65 72 6e 61 74 69 |h list a|lternati|
|000006a0| 6e 67 6c 79 2e 0a 45 56 | 45 4e 53 20 61 6e 64 20 |ngly..EV|ENS and |
|000006b0| 4f 44 44 53 20 61 72 65 | 20 74 77 6f 20 6c 69 73 |ODDS are| two lis|
|000006c0| 74 73 2e 20 20 5a 49 50 | 2d 4c 49 53 54 53 20 63 |ts. ZIP|-LISTS c|
|000006d0| 6f 6e 73 74 72 75 63 74 | 73 20 61 20 6e 65 77 20 |onstruct|s a new |
|000006e0| 6c 69 73 74 2c 20 77 68 | 6f 73 65 0a 65 76 65 6e |list, wh|ose.even|
|000006f0| 20 6e 75 6d 62 65 72 65 | 64 20 65 6c 65 6d 65 6e | numbere|d elemen|
|00000700| 74 73 20 28 30 2c 32 2c | 2e 2e 2e 29 20 63 6f 6d |ts (0,2,|...) com|
|00000710| 65 20 66 72 6f 6d 20 45 | 56 45 4e 53 20 61 6e 64 |e from E|VENS and|
|00000720| 20 77 68 6f 73 65 20 6f | 64 64 0a 6e 75 6d 62 65 | whose o|dd.numbe|
|00000730| 72 65 64 20 65 6c 65 6d | 65 6e 74 73 20 28 31 2c |red elem|ents (1,|
|00000740| 33 2c 2e 2e 2e 29 20 63 | 6f 6d 65 20 66 72 6f 6d |3,...) c|ome from|
|00000750| 20 4f 44 44 53 2e 20 0a | 54 68 65 20 63 6f 6e 73 | ODDS. .|The cons|
|00000760| 74 72 75 63 74 69 6f 6e | 20 73 74 6f 70 73 20 77 |truction| stops w|
|00000770| 68 65 6e 20 74 68 65 20 | 73 68 6f 72 74 65 72 20 |hen the |shorter |
|00000780| 6c 69 73 74 20 69 73 20 | 65 78 68 61 75 73 74 65 |list is |exhauste|
|00000790| 64 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |d."]).(d|efalias |
|000007a0| 27 75 6e 7a 69 70 2d 6c | 69 73 74 20 23 5b 28 6c |'unzip-l|ist #[(l|
|000007b0| 69 73 74 29 20 22 08 89 | 19 40 1a 09 89 1b 41 40 |ist) "..|.@....A@|
|000007c0| 29 1c c5 1e 06 c5 1e 07 | 09 89 1e 08 3c 83 20 00 |).......|....<. .|
|000007d0| 0e 08 3f 82 27 00 c9 ca | cb 0e 08 21 5c 22 29 84 |..?.'...|...!\").|
|000007e0| 4b 00 5c 6e 0e 06 42 16 | 06 0c 0e 07 42 16 07 09 |K.\n..B.|....B...|
|000007f0| 89 1b 41 41 29 89 11 40 | 12 09 89 1b 41 40 29 14 |..AA)..@|....A@).|
|00000800| 82 12 00 cc 0e 06 9f 0e | 07 9f 5c 22 2d 87 22 20 |........|..\"-." |
|00000810| 5b 6c 69 73 74 20 70 74 | 72 20 74 68 69 73 20 58 |[list pt|r this X|
|00000820| 20 6e 65 78 74 20 6e 69 | 6c 20 65 76 65 6e 73 20 | next ni|l evens |
|00000830| 6f 64 64 73 20 78 20 65 | 72 72 6f 72 20 22 65 6e |odds x e|rror "en|
|00000840| 64 70 20 72 65 63 65 69 | 76 65 64 20 61 20 6e 6f |dp recei|ved a no|
|00000850| 6e 2d 63 6f 6e 73 2c 20 | 6e 6f 6e 2d 6e 75 6c 6c |n-cons, |non-null|
|00000860| 20 61 72 67 75 6d 65 6e | 74 20 60 25 73 27 22 20 | argumen|t `%s'" |
|00000870| 70 72 69 6e 31 2d 74 6f | 2d 73 74 72 69 6e 67 20 |prin1-to|-string |
|00000880| 76 61 6c 75 65 73 5d 20 | 35 20 22 5c 0a 45 78 74 |values] |5 "\.Ext|
|00000890| 72 61 63 74 20 65 76 65 | 6e 20 61 6e 64 20 6f 64 |ract eve|n and od|
|000008a0| 64 20 65 6c 65 6d 65 6e | 74 73 20 6f 66 20 4c 49 |d elemen|ts of LI|
|000008b0| 53 54 20 69 6e 74 6f 20 | 74 77 6f 20 73 65 70 61 |ST into |two sepa|
|000008c0| 72 61 74 65 20 6c 69 73 | 74 73 2e 0a 54 68 65 20 |rate lis|ts..The |
|000008d0| 61 72 67 75 6d 65 6e 74 | 20 4c 49 53 54 20 69 73 |argument| LIST is|
|000008e0| 20 73 65 70 61 72 61 74 | 65 64 20 69 6e 20 74 77 | separat|ed in tw|
|000008f0| 6f 20 73 74 72 61 6e 64 | 73 2c 20 74 68 65 20 65 |o strand|s, the e|
|00000900| 76 65 6e 20 61 6e 64 20 | 74 68 65 20 6f 64 64 0a |ven and |the odd.|
|00000910| 6e 75 6d 62 65 72 65 64 | 20 65 6c 65 6d 65 6e 74 |numbered| element|
|00000920| 73 2e 20 20 4e 75 6d 62 | 65 72 69 6e 67 20 73 74 |s. Numb|ering st|
|00000930| 61 72 74 73 20 77 69 74 | 68 20 30 2c 20 73 6f 20 |arts wit|h 0, so |
|00000940| 74 68 65 20 66 69 72 73 | 74 20 65 6c 65 6d 65 6e |the firs|t elemen|
|00000950| 74 0a 62 65 6c 6f 6e 67 | 73 20 69 6e 20 45 56 45 |t.belong|s in EVE|
|00000960| 4e 53 2e 20 4e 6f 20 63 | 68 65 63 6b 20 69 73 20 |NS. No c|heck is |
|00000970| 6d 61 64 65 20 74 68 61 | 74 20 74 68 65 72 65 20 |made tha|t there |
|00000980| 69 73 20 61 6e 20 65 76 | 65 6e 20 6e 75 6d 62 65 |is an ev|en numbe|
|00000990| 72 20 6f 66 0a 65 6c 65 | 6d 65 6e 74 73 20 74 6f |r of.ele|ments to|
|000009a0| 20 73 74 61 72 74 20 77 | 69 74 68 2e 22 5d 29 0a | start w|ith."]).|
|000009b0| 28 64 65 66 61 6c 69 61 | 73 20 27 72 65 61 73 73 |(defalia|s 'reass|
|000009c0| 65 6d 62 6c 65 2d 61 72 | 67 73 6c 69 73 74 73 20 |emble-ar|gslists |
|000009d0| 23 5b 28 61 72 67 73 6c | 69 73 74 73 29 20 22 c0 |#[(argsl|ists) ".|
|000009e0| c1 c2 c3 0c 5c 22 5c 22 | 1d c6 1e 07 c8 1e 09 0e |....\"\"|........|
|000009f0| 09 54 89 16 09 0d 57 83 | 25 00 c2 ca 0c 5c 22 0e |.T....W.|%....\".|
|00000a00| 07 42 16 07 82 0e 00 0e | 07 9f 2b 87 22 20 5b 61 |.B......|..+." [a|
|00000a10| 70 70 6c 79 20 6d 69 6e | 20 6d 61 70 63 61 72 20 |pply min| mapcar |
|00000a20| 6c 65 6e 67 74 68 20 61 | 72 67 73 6c 69 73 74 73 |length a|rgslists|
|00000a30| 20 6d 69 6e 6c 65 6e 20 | 6e 69 6c 20 72 65 73 75 | minlen |nil resu|
|00000a40| 6c 74 20 2d 31 20 69 20 | 23 5b 28 73 75 62 6c 69 |lt -1 i |#[(subli|
|00000a50| 73 74 29 20 22 08 09 9c | 87 22 20 5b 73 75 62 6c |st) "...|." [subl|
|00000a60| 69 73 74 20 69 5d 20 32 | 5d 5d 20 35 20 22 5c 0a |ist i] 2|]] 5 "\.|
|00000a70| 28 72 65 61 73 73 65 6d | 62 6c 65 2d 61 72 67 73 |(reassem|ble-args|
|00000a80| 6c 69 73 74 73 20 41 52 | 47 53 4c 49 53 54 53 29 |lists AR|GSLISTS)|
|00000a90| 20 3d 3e 20 61 20 6c 69 | 73 74 20 6f 66 20 6c 69 | => a li|st of li|
|00000aa0| 73 74 73 0a 41 52 47 53 | 4c 49 53 54 53 20 69 73 |sts.ARGS|LISTS is|
|00000ab0| 20 61 20 6c 69 73 74 20 | 6f 66 20 73 65 71 75 65 | a list |of seque|
|00000ac0| 6e 63 65 73 2e 20 20 52 | 65 74 75 72 6e 20 61 20 |nces. R|eturn a |
|00000ad0| 6c 69 73 74 20 6f 66 20 | 6c 69 73 74 73 2c 20 74 |list of |lists, t|
|00000ae0| 68 65 20 66 69 72 73 74 | 0a 73 75 62 6c 69 73 74 |he first|.sublist|
|00000af0| 20 62 65 69 6e 67 20 61 | 6c 6c 20 74 68 65 20 65 | being a|ll the e|
|00000b00| 6e 74 72 69 65 73 20 63 | 6f 6d 69 6e 67 20 66 72 |ntries c|oming fr|
|00000b10| 6f 6d 20 45 4c 54 20 30 | 20 6f 66 20 74 68 65 20 |om ELT 0| of the |
|00000b20| 6f 72 69 67 69 6e 61 6c | 0a 73 75 62 6c 69 73 74 |original|.sublist|
|00000b30| 73 2c 20 74 68 65 20 6e | 65 78 74 20 74 68 6f 73 |s, the n|ext thos|
|00000b40| 65 20 63 6f 6d 69 6e 67 | 20 66 72 6f 6d 20 45 4c |e coming| from EL|
|00000b50| 54 20 31 20 61 6e 64 20 | 73 6f 20 6f 6e 2c 20 75 |T 1 and |so on, u|
|00000b60| 6e 74 69 6c 20 74 68 65 | 0a 73 68 6f 72 74 65 73 |ntil the|.shortes|
|00000b70| 74 20 6c 69 73 74 20 69 | 73 20 65 78 68 61 75 73 |t list i|s exhaus|
|00000b80| 74 65 64 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ted."]).|(defalia|
|00000b90| 73 20 27 64 75 70 6c 69 | 63 61 74 65 2d 73 79 6d |s 'dupli|cate-sym|
|00000ba0| 62 6f 6c 73 2d 70 20 23 | 5b 28 6c 69 73 74 29 20 |bols-p #|[(list) |
|00000bb0| 22 c0 c1 20 1a 1b 0c 3c | 83 11 00 c5 c6 0c 5c 22 |".. ...<|......\"|
|00000bc0| 84 15 00 c7 c8 21 88 c0 | 0c 1e 09 1e 5c 6e 0e 09 |.....!..|....\n..|
|00000bd0| 83 34 00 0e 09 40 16 5c | 6e 0e 09 41 16 09 cb 0e |.4...@.\|n..A....|
|00000be0| 5c 6e 5c 6e cc 23 88 82 | 1b 00 2a c0 0c 1e 0d 1e |\n\n.#..|..*.....|
|00000bf0| 5c 6e 0e 0d 83 58 00 0e | 0d 40 16 5c 6e 0e 0d 41 |\n...X..|.@.\n..A|
|00000c00| 16 0d cb 0e 5c 6e 5c 6e | 0e 5c 6e 5c 6e 4e 54 23 |....\n\n|.\n\nNT#|
|00000c10| 88 82 3b 00 2a c0 0c 1e | 0e 1e 5c 6e 0e 0e 83 7f |..;.*...|..\n....|
|00000c20| 00 0e 0e 40 16 5c 6e 0e | 0e 41 16 0e 0e 5c 6e 5c |...@.\n.|.A...\n\|
|00000c30| 6e 4e cf 56 83 5f 00 0e | 5c 6e 0b 42 13 82 5f 00 |nN.V._..|\n.B.._.|
|00000c40| 2a c0 0c 1e 10 1e 5c 6e | 0e 10 83 9e 00 0e 10 40 |*.....\n|.......@|
|00000c50| 16 5c 6e 0e 10 41 16 10 | d1 0e 5c 6e 5c 6e 5c 22 |.\n..A..|..\n\n\"|
|00000c60| 88 82 86 00 2a 0b 2a 87 | 22 20 5b 6e 69 6c 20 67 |....*.*.|" [nil g|
|00000c70| 65 6e 73 79 6d 20 70 72 | 6f 70 6e 61 6d 65 20 64 |ensym pr|opname d|
|00000c80| 75 70 6c 69 63 61 74 65 | 73 20 6c 69 73 74 20 65 |uplicate|s list e|
|00000c90| 76 65 72 79 20 73 79 6d | 62 6f 6c 70 20 65 72 72 |very sym|bolp err|
|00000ca0| 6f 72 20 22 61 20 6c 69 | 73 74 20 6f 66 20 73 79 |or "a li|st of sy|
|00000cb0| 6d 62 6f 6c 73 20 69 73 | 20 6e 65 65 64 65 64 22 |mbols is| needed"|
|00000cc0| 20 54 24 24 5f 38 20 78 | 20 70 75 74 20 30 20 54 | T$$_8 x| put 0 T|
|00000cd0| 24 24 5f 39 20 54 24 24 | 5f 31 30 20 31 20 54 24 |$$_9 T$$|_10 1 T$|
|00000ce0| 24 5f 31 31 20 72 65 6d | 70 72 6f 70 5d 20 35 20 |$_11 rem|prop] 5 |
|00000cf0| 22 5c 0a 46 69 6e 64 20 | 61 6c 6c 20 73 79 6d 62 |"\.Find |all symb|
|00000d00| 6f 6c 73 20 61 70 70 65 | 61 72 69 6e 67 20 6d 6f |ols appe|aring mo|
|00000d10| 72 65 20 74 68 61 6e 20 | 6f 6e 63 65 20 69 6e 20 |re than |once in |
|00000d20| 4c 49 53 54 2e 0a 52 65 | 74 75 72 6e 20 61 20 6c |LIST..Re|turn a l|
|00000d30| 69 73 74 20 6f 66 20 61 | 6c 6c 20 73 75 63 68 20 |ist of a|ll such |
|00000d40| 64 75 70 6c 69 63 61 74 | 65 73 3b 20 60 6e 69 6c |duplicat|es; `nil|
|00000d50| 27 20 69 66 20 74 68 65 | 72 65 20 61 72 65 20 6e |' if the|re are n|
|00000d60| 6f 20 64 75 70 6c 69 63 | 61 74 65 73 2e 22 5d 29 |o duplic|ates."])|
|00000d70| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 65 66 6b |.(defali|as 'defk|
|00000d80| 65 79 77 6f 72 64 20 27 | 28 6d 61 63 72 6f 20 2e |eyword '|(macro .|
|00000d90| 20 23 5b 28 78 20 26 6f | 70 74 69 6f 6e 61 6c 20 | #[(x &o|ptional |
|00000da0| 64 6f 63 73 74 72 69 6e | 67 29 20 22 08 39 83 0d |docstrin|g) ".9..|
|00000db0| 00 c1 08 c2 08 44 0b 46 | 87 c4 c5 c6 08 21 5c 22 |.....D.F|.....!\"|
|00000dc0| 87 22 20 5b 78 20 64 65 | 66 63 6f 6e 73 74 20 71 |." [x de|fconst q|
|00000dd0| 75 6f 74 65 20 64 6f 63 | 73 74 72 69 6e 67 20 65 |uote doc|string e|
|00000de0| 72 72 6f 72 20 22 60 25 | 73 27 20 69 73 20 6e 6f |rror "`%|s' is no|
|00000df0| 74 20 61 20 73 79 6d 62 | 6f 6c 22 20 70 72 69 6e |t a symb|ol" prin|
|00000e00| 31 2d 74 6f 2d 73 74 72 | 69 6e 67 5d 20 34 20 22 |1-to-str|ing] 4 "|
|00000e10| 5c 0a 4d 61 6b 65 20 73 | 79 6d 62 6f 6c 20 58 20 |\.Make s|ymbol X |
|00000e20| 61 20 6b 65 79 77 6f 72 | 64 20 28 73 79 6d 62 6f |a keywor|d (symbo|
|00000e30| 6c 20 77 68 6f 73 65 20 | 76 61 6c 75 65 20 69 73 |l whose |value is|
|00000e40| 20 69 74 73 65 6c 66 29 | 2e 0a 4f 70 74 69 6f 6e | itself)|..Option|
|00000e50| 61 6c 20 73 65 63 6f 6e | 64 20 61 72 67 75 6d 65 |al secon|d argume|
|00000e60| 6e 74 20 69 73 20 61 20 | 64 6f 63 75 6d 65 6e 74 |nt is a |document|
|00000e70| 61 74 69 6f 6e 20 73 74 | 72 69 6e 67 20 66 6f 72 |ation st|ring for|
|00000e80| 20 69 74 2e 22 5d 29 29 | 0a 28 64 65 66 61 6c 69 | it."]))|.(defali|
|00000e90| 61 73 20 27 6b 65 79 77 | 6f 72 64 70 20 23 5b 28 |as 'keyw|ordp #[(|
|00000ea0| 73 79 6d 29 20 22 08 39 | 85 13 00 c1 c2 08 21 c3 |sym) ".9|......!.|
|00000eb0| 48 c4 5c 22 85 13 00 08 | 89 4c 87 22 20 5b 73 79 |H.\"....|.L." [sy|
|00000ec0| 6d 20 63 68 61 72 2d 65 | 71 75 61 6c 20 73 79 6d |m char-e|qual sym|
|00000ed0| 62 6f 6c 2d 6e 61 6d 65 | 20 30 20 35 38 5d 20 33 |bol-name| 0 58] 3|
|00000ee0| 20 22 5c 0a 74 20 69 66 | 20 53 59 4d 20 69 73 20 | "\.t if| SYM is |
|00000ef0| 61 20 6b 65 79 77 6f 72 | 64 2e 22 5d 29 0a 28 64 |a keywor|d."]).(d|
|00000f00| 65 66 61 6c 69 61 73 20 | 27 6b 65 79 77 6f 72 64 |efalias |'keyword|
|00000f10| 2d 6f 66 20 23 5b 28 73 | 79 6d 29 20 22 c0 09 21 |-of #[(s|ym) "..!|
|00000f20| 83 08 00 09 87 09 39 83 | 1a 00 c2 c3 c4 09 21 50 |......9.|......!P|
|00000f30| 21 89 1d 89 4c 29 87 c6 | c7 c8 09 21 5c 22 87 22 |!...L)..|...!\"."|
|00000f40| 20 5b 6b 65 79 77 6f 72 | 64 70 20 73 79 6d 20 69 | [keywor|dp sym i|
|00000f50| 6e 74 65 72 6e 20 22 3a | 22 20 73 79 6d 62 6f 6c |ntern ":|" symbol|
|00000f60| 2d 6e 61 6d 65 20 6e 65 | 77 73 79 6d 20 65 72 72 |-name ne|wsym err|
|00000f70| 6f 72 20 22 65 78 70 65 | 63 74 65 64 20 61 20 73 |or "expe|cted a s|
|00000f80| 79 6d 62 6f 6c 2c 20 6e | 6f 74 20 60 25 73 27 22 |ymbol, n|ot `%s'"|
|00000f90| 20 70 72 69 6e 31 2d 74 | 6f 2d 73 74 72 69 6e 67 | prin1-t|o-string|
|00000fa0| 5d 20 35 20 22 5c 0a 52 | 65 74 75 72 6e 20 61 20 |] 5 "\.R|eturn a |
|00000fb0| 6b 65 79 77 6f 72 64 20 | 74 68 61 74 20 69 73 20 |keyword |that is |
|00000fc0| 6e 61 74 75 72 61 6c 6c | 79 20 61 73 73 6f 63 69 |naturall|y associ|
|00000fd0| 61 74 65 64 20 77 69 74 | 68 20 73 79 6d 62 6f 6c |ated wit|h symbol|
|00000fe0| 20 53 59 4d 2e 0a 49 66 | 20 53 59 4d 20 69 73 20 | SYM..If| SYM is |
|00000ff0| 6b 65 79 77 6f 72 64 2c | 20 74 68 65 20 76 61 6c |keyword,| the val|
|00001000| 75 65 20 69 73 20 53 59 | 4d 2e 0a 4f 74 68 65 72 |ue is SY|M..Other|
|00001010| 77 69 73 65 20 69 74 20 | 69 73 20 61 20 6b 65 79 |wise it |is a key|
|00001020| 77 6f 72 64 20 77 68 6f | 73 65 20 6e 61 6d 65 20 |word who|se name |
|00001030| 69 73 20 60 3a 27 20 66 | 6f 6c 6c 6f 77 65 64 20 |is `:' f|ollowed |
|00001040| 62 79 20 53 59 4d 27 73 | 20 6e 61 6d 65 2e 22 5d |by SYM's| name."]|
|00001050| 29 0a 28 64 65 66 76 61 | 72 20 2a 67 65 6e 74 65 |).(defva|r *gente|
|00001060| 6d 70 2d 69 6e 64 65 78 | 2a 20 30 20 22 5c 0a 49 |mp-index|* 0 "\.I|
|00001070| 6e 74 65 67 65 72 20 75 | 73 65 64 20 62 79 20 67 |nteger u|sed by g|
|00001080| 65 6e 74 65 6d 70 20 74 | 6f 20 70 72 6f 64 75 63 |entemp t|o produc|
|00001090| 65 20 6e 65 77 20 6e 61 | 6d 65 73 2e 22 29 0a 28 |e new na|mes.").(|
|000010a0| 64 65 66 76 61 72 20 2a | 67 65 6e 74 65 6d 70 2d |defvar *|gentemp-|
|000010b0| 70 72 65 66 69 78 2a 20 | 22 54 24 24 5f 22 20 22 |prefix* |"T$$_" "|
|000010c0| 5c 0a 4e 61 6d 65 73 20 | 67 65 6e 65 72 61 74 65 |\.Names |generate|
|000010d0| 64 20 62 79 20 67 65 6e | 74 65 6d 70 20 62 65 67 |d by gen|temp beg|
|000010e0| 69 6e 20 77 69 74 68 20 | 74 68 69 73 20 73 74 72 |in with |this str|
|000010f0| 69 6e 67 20 62 79 20 64 | 65 66 61 75 6c 74 2e 22 |ing by d|efault."|
|00001100| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 65 6e |).(defal|ias 'gen|
|00001110| 74 65 6d 70 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |temp #[(|&optiona|
|00001120| 6c 20 70 72 65 66 69 78 | 20 6f 62 6c 69 73 74 29 |l prefix| oblist)|
|00001130| 20 22 08 84 06 00 09 10 | 5c 6e 84 0c 00 0b 12 c4 | "......|\n......|
|00001140| 89 1d 1e 06 0e 06 84 32 | 00 08 0e 07 50 15 0e 07 |.......2|....P...|
|00001150| c8 5c 5c 16 07 c9 0d 5c | 6e 5c 22 84 11 00 ca 0d |.\\....\|n\".....|
|00001160| 5c 6e 5c 22 89 16 06 83 | 16 00 0e 06 2a 87 22 20 |\n\"....|....*." |
|00001170| 5b 70 72 65 66 69 78 20 | 2a 67 65 6e 74 65 6d 70 |[prefix |*gentemp|
|00001180| 2d 70 72 65 66 69 78 2a | 20 6f 62 6c 69 73 74 20 |-prefix*| oblist |
|00001190| 6f 62 61 72 72 61 79 20 | 6e 69 6c 20 6e 65 77 6e |obarray |nil newn|
|000011a0| 61 6d 65 20 6e 65 77 73 | 79 6d 62 6f 6c 20 2a 67 |ame news|ymbol *g|
|000011b0| 65 6e 74 65 6d 70 2d 69 | 6e 64 65 78 2a 20 31 20 |entemp-i|ndex* 1 |
|000011c0| 69 6e 74 65 72 6e 2d 73 | 6f 66 74 20 69 6e 74 65 |intern-s|oft inte|
|000011d0| 72 6e 5d 20 34 20 22 5c | 0a 47 65 6e 65 72 61 74 |rn] 4 "\|.Generat|
|000011e0| 65 20 61 20 66 72 65 73 | 68 20 69 6e 74 65 72 6e |e a fres|h intern|
|000011f0| 65 64 20 73 79 6d 62 6f | 6c 2e 0a 54 68 65 72 65 |ed symbo|l..There|
|00001200| 20 61 72 65 20 32 20 6f | 70 74 69 6f 6e 61 6c 20 | are 2 o|ptional |
|00001210| 61 72 67 75 6d 65 6e 74 | 73 2c 20 50 52 45 46 49 |argument|s, PREFI|
|00001220| 58 20 61 6e 64 20 4f 42 | 4c 49 53 54 2e 20 20 50 |X and OB|LIST. P|
|00001230| 52 45 46 49 58 20 69 73 | 20 74 68 65 0a 73 74 72 |REFIX is| the.str|
|00001240| 69 6e 67 20 74 68 61 74 | 20 62 65 67 69 6e 73 20 |ing that| begins |
|00001250| 74 68 65 20 6e 65 77 20 | 6e 61 6d 65 2c 20 4f 42 |the new |name, OB|
|00001260| 4c 49 53 54 20 69 73 20 | 74 68 65 20 6f 62 61 72 |LIST is |the obar|
|00001270| 72 61 79 20 75 73 65 64 | 20 74 6f 20 73 65 61 72 |ray used| to sear|
|00001280| 63 68 20 66 6f 72 0a 6f | 6c 64 20 6e 61 6d 65 73 |ch for.o|ld names|
|00001290| 2e 20 20 54 68 65 20 64 | 65 66 61 75 6c 74 73 20 |. The d|efaults |
|000012a0| 61 72 65 20 6a 75 73 74 | 20 72 69 67 68 74 2c 20 |are just| right, |
|000012b0| 59 4f 55 20 53 48 4f 55 | 4c 44 20 4e 45 56 45 52 |YOU SHOU|LD NEVER|
|000012c0| 20 4e 45 45 44 20 54 48 | 45 53 45 0a 41 52 47 55 | NEED TH|ESE.ARGU|
|000012d0| 4d 45 4e 54 53 20 49 4e | 20 59 4f 55 52 20 4f 57 |MENTS IN| YOUR OW|
|000012e0| 4e 20 43 4f 44 45 2e 22 | 5d 29 0a 28 64 65 66 76 |N CODE."|]).(defv|
|000012f0| 61 72 20 2a 67 65 6e 73 | 79 6d 2d 69 6e 64 65 78 |ar *gens|ym-index|
|00001300| 2a 20 30 20 22 5c 0a 49 | 6e 74 65 67 65 72 20 75 |* 0 "\.I|nteger u|
|00001310| 73 65 64 20 62 79 20 67 | 65 6e 73 79 6d 20 74 6f |sed by g|ensym to|
|00001320| 20 70 72 6f 64 75 63 65 | 20 6e 65 77 20 6e 61 6d | produce| new nam|
|00001330| 65 73 2e 22 29 0a 28 64 | 65 66 76 61 72 20 2a 67 |es.").(d|efvar *g|
|00001340| 65 6e 73 79 6d 2d 70 72 | 65 66 69 78 2a 20 22 47 |ensym-pr|efix* "G|
|00001350| 24 24 5f 22 20 22 5c 0a | 4e 61 6d 65 73 20 67 65 |$$_" "\.|Names ge|
|00001360| 6e 65 72 61 74 65 64 20 | 62 79 20 67 65 6e 73 79 |nerated |by gensy|
|00001370| 6d 20 62 65 67 69 6e 20 | 77 69 74 68 20 74 68 69 |m begin |with thi|
|00001380| 73 20 73 74 72 69 6e 67 | 20 62 79 20 64 65 66 61 |s string| by defa|
|00001390| 75 6c 74 2e 22 29 0a 28 | 64 65 66 61 6c 69 61 73 |ult.").(|defalias|
|000013a0| 20 27 67 65 6e 73 79 6d | 20 23 5b 28 26 6f 70 74 | 'gensym| #[(&opt|
|000013b0| 69 6f 6e 61 6c 20 70 72 | 65 66 69 78 29 20 22 08 |ional pr|efix) ".|
|000013c0| 84 06 00 09 10 c2 c3 1c | 1d 0d 84 27 00 08 0e 06 |........|...'....|
|000013d0| 50 14 0e 06 c7 5c 5c 16 | 06 c8 0c 21 84 5c 6e 00 |P....\\.|...!.\n.|
|000013e0| c9 0c 21 89 15 83 0e 00 | 0d 2a 87 22 20 5b 70 72 |..!.....|.*." [pr|
|000013f0| 65 66 69 78 20 2a 67 65 | 6e 73 79 6d 2d 70 72 65 |efix *ge|nsym-pre|
|00001400| 66 69 78 2a 20 6e 69 6c | 20 22 22 20 6e 65 77 6e |fix* nil| "" newn|
|00001410| 61 6d 65 20 6e 65 77 73 | 79 6d 62 6f 6c 20 2a 67 |ame news|ymbol *g|
|00001420| 65 6e 73 79 6d 2d 69 6e | 64 65 78 2a 20 31 20 69 |ensym-in|dex* 1 i|
|00001430| 6e 74 65 72 6e 2d 73 6f | 66 74 20 6d 61 6b 65 2d |ntern-so|ft make-|
|00001440| 73 79 6d 62 6f 6c 5d 20 | 33 20 22 5c 0a 47 65 6e |symbol] |3 "\.Gen|
|00001450| 65 72 61 74 65 20 61 20 | 66 72 65 73 68 20 75 6e |erate a |fresh un|
|00001460| 69 6e 74 65 72 6e 65 64 | 20 73 79 6d 62 6f 6c 2e |interned| symbol.|
|00001470| 0a 54 68 65 72 65 20 69 | 73 20 61 6e 20 20 6f 70 |.There i|s an op|
|00001480| 74 69 6f 6e 61 6c 20 61 | 72 67 75 6d 65 6e 74 2c |tional a|rgument,|
|00001490| 20 50 52 45 46 49 58 2e | 20 20 50 52 45 46 49 58 | PREFIX.| PREFIX|
|000014a0| 20 69 73 20 74 68 65 0a | 73 74 72 69 6e 67 20 74 | is the.|string t|
|000014b0| 68 61 74 20 62 65 67 69 | 6e 73 20 74 68 65 20 6e |hat begi|ns the n|
|000014c0| 65 77 20 6e 61 6d 65 2e | 20 4d 6f 73 74 20 70 65 |ew name.| Most pe|
|000014d0| 6f 70 6c 65 20 74 61 6b | 65 20 6a 75 73 74 20 74 |ople tak|e just t|
|000014e0| 68 65 20 64 65 66 61 75 | 6c 74 2c 0a 65 78 63 65 |he defau|lt,.exce|
|000014f0| 70 74 20 77 68 65 6e 20 | 64 65 62 75 67 67 69 6e |pt when |debuggin|
|00001500| 67 20 6e 65 65 64 73 20 | 73 75 67 67 65 73 74 20 |g needs |suggest |
|00001510| 6f 74 68 65 72 77 69 73 | 65 2e 22 5d 29 0a 28 62 |otherwis|e."]).(b|
|00001520| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 c3 23 88 |yte-code| "....#.|
|00001530| c0 c4 c2 c3 23 88 c0 c5 | c2 c3 23 88 c0 c6 c2 c3 |....#...|..#.....|
|00001540| 23 87 22 20 5b 70 75 74 | 20 63 61 73 65 20 6c 69 |#." [put| case li|
|00001550| 73 70 2d 69 6e 64 65 6e | 74 2d 68 6f 6f 6b 20 31 |sp-inden|t-hook 1|
|00001560| 20 65 63 61 73 65 20 77 | 68 65 6e 20 75 6e 6c 65 | ecase w|hen unle|
|00001570| 73 73 5d 20 34 29 0a 28 | 64 65 66 61 6c 69 61 73 |ss] 4).(|defalias|
|00001580| 20 27 77 68 65 6e 20 27 | 28 6d 61 63 72 6f 20 2e | 'when '|(macro .|
|00001590| 20 23 5b 28 63 6f 6e 64 | 69 74 69 6f 6e 20 26 72 | #[(cond|ition &r|
|000015a0| 65 73 74 20 62 6f 64 79 | 29 20 22 c0 c1 c2 0b 44 |est body|) "....D|
|000015b0| c4 0d 24 87 22 20 5b 6c | 69 73 74 2a 20 69 66 20 |..$." [l|ist* if |
|000015c0| 6e 6f 74 20 63 6f 6e 64 | 69 74 69 6f 6e 20 6e 69 |not cond|ition ni|
|000015d0| 6c 20 62 6f 64 79 5d 20 | 35 20 22 5c 0a 28 77 68 |l body] |5 "\.(wh|
|000015e0| 65 6e 20 43 4f 4e 44 49 | 54 49 4f 4e 20 2e 20 42 |en CONDI|TION . B|
|000015f0| 4f 44 59 29 20 3d 3e 20 | 65 76 61 6c 75 61 74 65 |ODY) => |evaluate|
|00001600| 20 42 4f 44 59 20 69 66 | 20 43 4f 4e 44 49 54 49 | BODY if| CONDITI|
|00001610| 4f 4e 20 69 73 20 74 72 | 75 65 2e 22 5d 29 29 0a |ON is tr|ue."])).|
|00001620| 28 64 65 66 61 6c 69 61 | 73 20 27 75 6e 6c 65 73 |(defalia|s 'unles|
|00001630| 73 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 63 |s '(macr|o . #[(c|
|00001640| 6f 6e 64 69 74 69 6f 6e | 20 26 72 65 73 74 20 62 |ondition| &rest b|
|00001650| 6f 64 79 29 20 22 c0 c1 | 5c 6e c3 0c 24 87 22 20 |ody) "..|\n..$." |
|00001660| 5b 6c 69 73 74 2a 20 69 | 66 20 63 6f 6e 64 69 74 |[list* i|f condit|
|00001670| 69 6f 6e 20 6e 69 6c 20 | 62 6f 64 79 5d 20 35 20 |ion nil |body] 5 |
|00001680| 22 5c 0a 28 75 6e 6c 65 | 73 73 20 43 4f 4e 44 49 |"\.(unle|ss CONDI|
|00001690| 54 49 4f 4e 20 2e 20 42 | 4f 44 59 29 20 3d 3e 20 |TION . B|ODY) => |
|000016a0| 65 76 61 6c 75 61 74 65 | 20 42 4f 44 59 20 69 66 |evaluate| BODY if|
|000016b0| 20 43 4f 4e 44 49 54 49 | 4f 4e 20 69 73 20 66 61 | CONDITI|ON is fa|
|000016c0| 6c 73 65 2e 22 5d 29 29 | 0a 28 64 65 66 61 6c 69 |lse."]))|.(defali|
|000016d0| 61 73 20 27 63 61 73 65 | 20 27 28 6d 61 63 72 6f |as 'case| '(macro|
|000016e0| 20 2e 20 23 5b 28 65 78 | 70 72 20 26 72 65 73 74 | . #[(ex|pr &rest|
|000016f0| 20 63 61 73 65 73 29 20 | 22 c0 20 19 c2 0b 09 5c | cases) |". ....\|
|00001700| 22 1c c5 09 0e 06 44 43 | c7 c8 0c 9f 5c 22 45 2a |".....DC|....\"E*|
|00001710| 87 22 20 5b 67 65 6e 74 | 65 6d 70 20 6e 65 77 73 |." [gent|emp news|
|00001720| 79 6d 20 63 61 73 65 2d | 63 6c 61 75 73 69 66 79 |ym case-|clausify|
|00001730| 20 63 61 73 65 73 20 63 | 6c 61 75 73 65 73 20 6c | cases c|lauses l|
|00001740| 65 74 20 65 78 70 72 20 | 6c 69 73 74 2a 20 63 6f |et expr |list* co|
|00001750| 6e 64 5d 20 35 20 22 5c | 0a 28 63 61 73 65 20 45 |nd] 5 "\|.(case E|
|00001760| 58 50 52 20 2e 20 43 41 | 53 45 53 29 20 3d 3e 20 |XPR . CA|SES) => |
|00001770| 65 76 61 6c 73 20 45 58 | 50 52 2c 20 63 68 6f 6f |evals EX|PR, choo|
|00001780| 73 65 73 20 66 72 6f 6d | 20 43 41 53 45 53 20 6f |ses from| CASES o|
|00001790| 6e 20 74 68 61 74 20 76 | 61 6c 75 65 2e 0a 45 58 |n that v|alue..EX|
|000017a0| 50 52 20 20 20 2d 3e 20 | 61 6e 79 20 66 6f 72 6d |PR -> |any form|
|000017b0| 0a 43 41 53 45 53 20 20 | 2d 3e 20 6c 69 73 74 20 |.CASES |-> list |
|000017c0| 6f 66 20 63 6c 61 75 73 | 65 73 2c 20 6e 6f 6e 20 |of claus|es, non |
|000017d0| 65 6d 70 74 79 0a 43 4c | 41 55 53 45 20 2d 3e 20 |empty.CL|AUSE -> |
|000017e0| 48 45 41 44 20 2e 20 42 | 4f 44 59 0a 48 45 41 44 |HEAD . B|ODY.HEAD|
|000017f0| 20 20 20 2d 3e 20 74 20 | 20 20 20 20 20 20 20 20 | -> t | |
|00001800| 20 20 20 20 3d 20 63 61 | 74 63 68 20 61 6c 6c 2c | = ca|tch all,|
|00001810| 20 6d 75 73 74 20 62 65 | 20 6c 61 73 74 20 63 6c | must be| last cl|
|00001820| 61 75 73 65 0a 20 20 20 | 20 20 20 20 2d 3e 20 6f |ause. | -> o|
|00001830| 74 68 65 72 77 69 73 65 | 20 20 20 20 20 3d 20 73 |therwise| = s|
|00001840| 61 6d 65 20 61 73 20 74 | 0a 20 20 20 20 20 20 20 |ame as t|. |
|00001850| 2d 3e 20 6e 69 6c 20 20 | 20 20 20 20 20 20 20 20 |-> nil | |
|00001860| 20 3d 20 69 6c 6c 65 67 | 61 6c 0a 20 20 20 20 20 | = illeg|al. |
|00001870| 20 20 2d 3e 20 61 74 6f | 6d 20 20 20 20 20 20 20 | -> ato|m |
|00001880| 20 20 20 3d 20 61 63 74 | 69 76 61 74 65 64 20 69 | = act|ivated i|
|00001890| 66 20 28 65 71 6c 20 20 | 45 58 50 52 20 48 45 41 |f (eql |EXPR HEA|
|000018a0| 44 29 0a 20 20 20 20 20 | 20 20 2d 3e 20 6c 69 73 |D). | -> lis|
|000018b0| 74 20 6f 66 20 61 74 6f | 6d 73 20 3d 20 61 63 74 |t of ato|ms = act|
|000018c0| 69 76 61 74 65 64 20 69 | 66 20 28 6d 65 6d 71 20 |ivated i|f (memq |
|000018d0| 45 58 50 52 20 48 45 41 | 44 29 0a 42 4f 44 59 20 |EXPR HEA|D).BODY |
|000018e0| 20 20 2d 3e 20 6c 69 73 | 74 20 6f 66 20 66 6f 72 | -> lis|t of for|
|000018f0| 6d 73 2c 20 69 6d 70 6c | 69 63 69 74 20 50 52 4f |ms, impl|icit PRO|
|00001900| 47 4e 20 69 73 20 62 75 | 69 6c 74 20 61 72 6f 75 |GN is bu|ilt arou|
|00001910| 6e 64 20 69 74 2e 0a 45 | 58 50 52 20 69 73 20 65 |nd it..E|XPR is e|
|00001920| 76 61 6c 75 61 74 65 64 | 20 6f 6e 6c 79 20 6f 6e |valuated| only on|
|00001930| 63 65 2e 22 5d 29 29 0a | 28 64 65 66 61 6c 69 61 |ce."])).|(defalia|
|00001940| 73 20 27 65 63 61 73 65 | 20 27 28 6d 61 63 72 6f |s 'ecase| '(macro|
|00001950| 20 2e 20 23 5b 28 65 78 | 70 72 20 26 72 65 73 74 | . #[(ex|pr &rest|
|00001960| 20 63 61 73 65 73 29 20 | 22 c0 20 19 c2 0b 09 5c | cases) |". ....\|
|00001970| 22 89 1c 89 1d 40 40 29 | c6 3d 83 17 00 c7 c8 21 |"....@@)|.=.....!|
|00001980| 88 c6 c7 c9 ca 0e 0b 44 | cc 09 44 46 44 0c 42 14 |.......D|..DFD.B.|
|00001990| cd 09 0e 0b 44 43 ce cf | 0c 9f 5c 22 45 2a 87 22 |....DC..|..\"E*."|
|000019a0| 20 5b 67 65 6e 74 65 6d | 70 20 6e 65 77 73 79 6d | [gentem|p newsym|
|000019b0| 20 63 61 73 65 2d 63 6c | 61 75 73 69 66 79 20 63 | case-cl|ausify c|
|000019c0| 61 73 65 73 20 63 6c 61 | 75 73 65 73 20 58 20 74 |ases cla|uses X t|
|000019d0| 20 65 72 72 6f 72 20 22 | 6e 6f 20 63 6c 61 75 73 | error "|no claus|
|000019e0| 65 2d 68 65 61 64 20 73 | 68 6f 75 6c 64 20 62 65 |e-head s|hould be|
|000019f0| 20 60 74 27 20 6f 72 20 | 60 6f 74 68 65 72 77 69 | `t' or |`otherwi|
|00001a00| 73 65 27 20 66 6f 72 20 | 60 65 63 61 73 65 27 22 |se' for |`ecase'"|
|00001a10| 20 22 65 63 61 73 65 20 | 6f 6e 20 25 73 20 3d 20 | "ecase |on %s = |
|00001a20| 25 73 20 66 61 69 6c 65 | 64 20 74 6f 20 74 61 6b |%s faile|d to tak|
|00001a30| 65 20 61 6e 79 20 62 72 | 61 6e 63 68 22 20 71 75 |e any br|anch" qu|
|00001a40| 6f 74 65 20 65 78 70 72 | 20 70 72 69 6e 31 2d 74 |ote expr| prin1-t|
|00001a50| 6f 2d 73 74 72 69 6e 67 | 20 6c 65 74 20 6c 69 73 |o-string| let lis|
|00001a60| 74 2a 20 63 6f 6e 64 5d | 20 37 20 22 5c 0a 28 65 |t* cond]| 7 "\.(e|
|00001a70| 63 61 73 65 20 45 58 50 | 52 20 2e 20 43 41 53 45 |case EXP|R . CASE|
|00001a80| 53 29 20 3d 3e 20 6c 69 | 6b 65 20 60 63 61 73 65 |S) => li|ke `case|
|00001a90| 27 2c 20 62 75 74 20 65 | 72 72 6f 72 20 69 66 20 |', but e|rror if |
|00001aa0| 6e 6f 20 63 61 73 65 20 | 66 69 74 73 2e 0a 60 74 |no case |fits..`t|
|00001ab0| 27 2d 63 6c 61 75 73 65 | 73 20 61 72 65 20 6e 6f |'-clause|s are no|
|00001ac0| 74 20 61 6c 6c 6f 77 65 | 64 2e 22 5d 29 29 0a 28 |t allowe|d."])).(|
|00001ad0| 64 65 66 61 6c 69 61 73 | 20 27 63 61 73 65 2d 63 |defalias| 'case-c|
|00001ae0| 6c 61 75 73 69 66 79 20 | 23 5b 28 63 61 73 65 73 |lausify |#[(cases|
|00001af0| 20 6e 65 77 73 79 6d 29 | 20 22 08 19 08 41 1a 08 | newsym)| "...A..|
|00001b00| 40 1b c4 1d 09 89 1e 06 | 3c 83 18 00 0e 06 3f 82 |@.......|<.....?.|
|00001b10| 1f 00 c7 c8 c9 0e 06 21 | 5c 22 29 84 b1 00 0b 40 |.......!|\")....@|
|00001b20| 0b 41 1e 5c 6e 89 1e 0b | 84 39 00 c7 cc c9 0b 21 |.A.\n...|.9.....!|
|00001b30| 5c 22 88 82 a4 00 0e 0b | cd 3d 84 47 00 0e 0b ce |\"......|.=.G....|
|00001b40| 3d 83 6e 00 5c 6e 89 1e | 06 3c 83 55 00 0e 06 3f |=.n.\n..|.<.U...?|
|00001b50| 82 5c 5c 00 c7 c8 c9 0e | 06 21 5c 22 29 84 64 00 |.\\.....|.!\").d.|
|00001b60| c7 cf 21 88 cd 0e 5c 6e | 42 0d 42 15 82 a4 00 0e |..!...\n|B.B.....|
|00001b70| 0b 3a 84 85 00 d0 0e 11 | d2 0e 0b 44 45 0e 5c 6e |.:......|...DE.\n|
|00001b80| 42 0d 42 15 82 a4 00 0e | 0b 3c 83 9c 00 d3 0e 11 |B.B.....|.<......|
|00001b90| d2 0e 0b 44 45 0e 5c 6e | 42 0d 42 15 82 a4 00 c7 |...DE.\n|B.B.....|
|00001ba0| d4 c9 0e 0b 21 5c 22 88 | 2a 09 41 11 5c 6e 41 12 |....!\".|*.A.\nA.|
|00001bb0| 09 40 13 82 5c 6e 00 0d | 2c 87 22 20 5b 63 61 73 |.@..\n..|,." [cas|
|00001bc0| 65 73 20 63 75 72 72 65 | 6e 74 70 6f 73 20 6e 65 |es curre|ntpos ne|
|00001bd0| 78 74 70 6f 73 20 63 75 | 72 63 6c 61 75 73 65 20 |xtpos cu|rclause |
|00001be0| 6e 69 6c 20 72 65 73 75 | 6c 74 20 78 20 65 72 72 |nil resu|lt x err|
|00001bf0| 6f 72 20 22 65 6e 64 70 | 20 72 65 63 65 69 76 65 |or "endp| receive|
|00001c00| 64 20 61 20 6e 6f 6e 2d | 63 6f 6e 73 2c 20 6e 6f |d a non-|cons, no|
|00001c10| 6e 2d 6e 75 6c 6c 20 61 | 72 67 75 6d 65 6e 74 20 |n-null a|rgument |
|00001c20| 60 25 73 27 22 20 70 72 | 69 6e 31 2d 74 6f 2d 73 |`%s'" pr|in1-to-s|
|00001c30| 74 72 69 6e 67 20 62 6f | 64 79 20 68 65 61 64 20 |tring bo|dy head |
|00001c40| 22 63 61 73 65 20 63 6c | 61 75 73 65 73 20 63 61 |"case cl|auses ca|
|00001c50| 6e 6e 6f 74 20 68 61 76 | 65 20 6e 75 6c 6c 20 68 |nnot hav|e null h|
|00001c60| 65 61 64 73 3a 20 60 25 | 73 27 22 20 74 20 6f 74 |eads: `%|s'" t ot|
|00001c70| 68 65 72 77 69 73 65 20 | 22 63 6c 61 75 73 65 20 |herwise |"clause |
|00001c80| 77 69 74 68 20 60 74 27 | 20 6f 72 20 60 6f 74 68 |with `t'| or `oth|
|00001c90| 65 72 77 69 73 65 27 20 | 68 65 61 64 20 6d 75 73 |erwise' |head mus|
|00001ca0| 74 20 62 65 20 6c 61 73 | 74 22 20 65 71 6c 20 6e |t be las|t" eql n|
|00001cb0| 65 77 73 79 6d 20 71 75 | 6f 74 65 20 6d 65 6d 71 |ewsym qu|ote memq|
|00001cc0| 20 22 64 6f 6e 27 74 20 | 6b 6e 6f 77 20 68 6f 77 | "don't |know how|
|00001cd0| 20 74 6f 20 70 61 72 73 | 65 20 63 61 73 65 20 63 | to pars|e case c|
|00001ce0| 6c 61 75 73 65 20 60 25 | 73 27 22 5d 20 35 20 22 |lause `%|s'"] 5 "|
|00001cf0| 5c 0a 43 41 53 45 2d 43 | 4c 41 55 53 49 46 59 20 |\.CASE-C|LAUSIFY |
|00001d00| 43 41 53 45 53 20 4e 45 | 57 53 59 4d 20 3d 3e 20 |CASES NE|WSYM => |
|00001d10| 63 6c 61 75 73 65 73 20 | 66 6f 72 20 61 20 27 63 |clauses |for a 'c|
|00001d20| 6f 6e 64 27 0a 43 6f 6e | 76 65 72 74 73 20 74 68 |ond'.Con|verts th|
|00001d30| 65 20 43 41 53 45 53 20 | 6f 66 20 61 20 5b 65 5d |e CASES |of a [e]|
|00001d40| 63 61 73 65 20 6d 61 63 | 72 6f 20 69 6e 74 6f 20 |case mac|ro into |
|00001d50| 63 6f 6e 64 20 63 6c 61 | 75 73 65 73 20 74 6f 20 |cond cla|uses to |
|00001d60| 62 65 0a 65 76 61 6c 75 | 61 74 65 64 20 69 6e 73 |be.evalu|ated ins|
|00001d70| 69 64 65 20 61 20 6c 65 | 74 20 74 68 61 74 20 62 |ide a le|t that b|
|00001d80| 69 6e 64 73 20 4e 45 57 | 53 59 4d 2e 20 20 52 65 |inds NEW|SYM. Re|
|00001d90| 74 75 72 6e 73 20 74 68 | 65 20 63 6c 61 75 73 65 |turns th|e clause|
|00001da0| 73 20 69 6e 0a 72 65 76 | 65 72 73 65 20 6f 72 64 |s in.rev|erse ord|
|00001db0| 65 72 2e 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |er."]).(|byte-cod|
|00001dc0| 65 20 22 c0 c1 c2 c3 23 | 88 c0 c4 c2 c3 23 88 c0 |e "....#|.....#..|
|00001dd0| c5 c2 c6 23 88 c0 c7 c2 | c6 23 88 c0 c8 c2 c6 23 |...#....|.#.....#|
|00001de0| 88 c0 c9 c2 c6 23 87 22 | 20 5b 70 75 74 20 64 6f |.....#."| [put do|
|00001df0| 20 6c 69 73 70 2d 69 6e | 64 65 6e 74 2d 68 6f 6f | lisp-in|dent-hoo|
|00001e00| 6b 20 32 20 64 6f 2a 20 | 64 6f 6c 69 73 74 20 31 |k 2 do* |dolist 1|
|00001e10| 20 64 6f 74 69 6d 65 73 | 20 64 6f 2d 73 79 6d 62 | dotimes| do-symb|
|00001e20| 6f 6c 73 20 64 6f 2d 61 | 6c 6c 2d 73 79 6d 62 6f |ols do-a|ll-symbo|
|00001e30| 6c 73 5d 20 34 29 0a 28 | 64 65 66 61 6c 69 61 73 |ls] 4).(|defalias|
|00001e40| 20 27 64 6f 20 27 28 6d | 61 63 72 6f 20 2e 20 23 | 'do '(m|acro . #|
|00001e50| 5b 28 73 74 65 70 66 6f | 72 6d 73 20 65 6e 64 66 |[(stepfo|rms endf|
|00001e60| 6f 72 6d 73 20 26 72 65 | 73 74 20 62 6f 64 79 29 |orms &re|st body)|
|00001e70| 20 22 c0 09 21 83 5c 6e | 00 c2 0b 21 88 c4 09 21 | "..!.\n|...!...!|
|00001e80| c5 09 21 0b 40 0b 41 1e | 06 1e 07 1e 08 1e 09 ca |..!.@.A.|........|
|00001e90| 0e 09 cb cc 0e 07 44 cd | 0e 0e 0e 08 5c 22 42 42 |......D.|....\"BB|
|00001ea0| cd 0e 06 21 2c 42 42 42 | 87 22 20 5b 63 68 65 63 |...!,BBB|." [chec|
|00001eb0| 6b 2d 64 6f 2d 73 74 65 | 70 66 6f 72 6d 73 20 73 |k-do-ste|pforms s|
|00001ec0| 74 65 70 66 6f 72 6d 73 | 20 63 68 65 63 6b 2d 64 |tepforms| check-d|
|00001ed0| 6f 2d 65 6e 64 66 6f 72 | 6d 73 20 65 6e 64 66 6f |o-endfor|ms endfo|
|00001ee0| 72 6d 73 20 65 78 74 72 | 61 63 74 2d 64 6f 2d 69 |rms extr|act-do-i|
|00001ef0| 6e 69 74 73 20 65 78 74 | 72 61 63 74 2d 64 6f 2d |nits ext|ract-do-|
|00001f00| 73 74 65 70 73 20 65 6e | 64 62 6f 64 79 20 65 6e |steps en|dbody en|
|00001f10| 64 63 6f 6e 64 20 73 74 | 65 70 6c 69 73 74 20 69 |dcond st|eplist i|
|00001f20| 6e 69 74 6c 69 73 74 20 | 6c 65 74 20 77 68 69 6c |nitlist |let whil|
|00001f30| 65 20 6e 6f 74 20 61 70 | 70 65 6e 64 20 62 6f 64 |e not ap|pend bod|
|00001f40| 79 5d 20 37 20 22 5c 0a | 28 64 6f 20 53 54 45 50 |y] 7 "\.|(do STEP|
|00001f50| 46 4f 52 4d 53 20 45 4e | 44 46 4f 52 4d 53 20 2e |FORMS EN|DFORMS .|
|00001f60| 20 42 4f 44 59 29 3a 20 | 49 74 65 72 61 74 65 20 | BODY): |Iterate |
|00001f70| 42 4f 44 59 2c 20 73 74 | 65 70 70 69 6e 67 20 73 |BODY, st|epping s|
|00001f80| 6f 6d 65 20 6c 6f 63 61 | 6c 20 76 61 72 69 61 62 |ome loca|l variab|
|00001f90| 6c 65 73 2e 0a 53 54 45 | 50 46 4f 52 4d 53 20 6d |les..STE|PFORMS m|
|00001fa0| 75 73 74 20 62 65 20 61 | 20 6c 69 73 74 20 6f 66 |ust be a| list of|
|00001fb0| 20 73 79 6d 62 6f 6c 73 | 20 6f 72 20 6c 69 73 74 | symbols| or list|
|00001fc0| 73 2e 20 20 49 6e 20 74 | 68 65 20 73 65 63 6f 6e |s. In t|he secon|
|00001fd0| 64 20 63 61 73 65 2c 20 | 74 68 65 0a 6c 69 73 74 |d case, |the.list|
|00001fe0| 73 20 6d 75 73 74 20 73 | 74 61 72 74 20 77 69 74 |s must s|tart wit|
|00001ff0| 68 20 61 20 73 79 6d 62 | 6f 6c 20 61 6e 64 20 63 |h a symb|ol and c|
|00002000| 6f 6e 74 61 69 6e 20 75 | 70 20 74 6f 20 74 77 6f |ontain u|p to two|
|00002010| 20 6d 6f 72 65 20 66 6f | 72 6d 73 2e 20 49 6e 0a | more fo|rms. In.|
|00002020| 74 68 65 20 53 54 45 50 | 46 4f 52 4d 53 2c 20 61 |the STEP|FORMS, a|
|00002030| 20 73 79 6d 62 6f 6c 20 | 69 73 20 74 68 65 20 73 | symbol |is the s|
|00002040| 61 6d 65 20 61 73 20 61 | 20 28 73 79 6d 62 6f 6c |ame as a| (symbol|
|00002050| 29 2e 20 20 54 68 65 20 | 6f 74 68 65 72 20 32 20 |). The |other 2 |
|00002060| 66 6f 72 6d 73 0a 61 72 | 65 20 74 68 65 20 69 6e |forms.ar|e the in|
|00002070| 69 74 69 61 6c 20 76 61 | 6c 75 65 20 28 64 65 66 |itial va|lue (def|
|00002080| 2e 20 4e 49 4c 29 20 61 | 6e 64 20 74 68 65 20 66 |. NIL) a|nd the f|
|00002090| 6f 72 6d 20 74 6f 20 73 | 74 65 70 20 28 64 65 66 |orm to s|tep (def|
|000020a0| 2e 20 69 74 73 65 6c 66 | 29 2e 0a 54 68 65 20 76 |. itself|)..The v|
|000020b0| 61 6c 75 65 73 20 75 73 | 65 64 20 62 79 20 69 6e |alues us|ed by in|
|000020c0| 69 74 69 61 6c 69 7a 61 | 74 69 6f 6e 20 61 6e 64 |itializa|tion and|
|000020d0| 20 73 74 65 70 70 69 6e | 67 20 61 72 65 20 63 6f | steppin|g are co|
|000020e0| 6d 70 75 74 65 64 20 69 | 6e 20 70 61 72 61 6c 6c |mputed i|n parall|
|000020f0| 65 6c 2e 0a 54 68 65 20 | 45 4e 44 46 4f 52 4d 53 |el..The |ENDFORMS|
|00002100| 20 61 72 65 20 61 20 6c | 69 73 74 20 28 43 4f 4e | are a l|ist (CON|
|00002110| 44 49 54 49 4f 4e 20 2e | 20 45 4e 44 42 4f 44 59 |DITION .| ENDBODY|
|00002120| 29 2e 20 20 49 66 20 74 | 68 65 20 43 4f 4e 44 49 |). If t|he CONDI|
|00002130| 54 49 4f 4e 0a 65 76 61 | 6c 75 61 74 65 73 20 74 |TION.eva|luates t|
|00002140| 6f 20 74 72 75 65 20 69 | 6e 20 61 6e 79 20 69 74 |o true i|n any it|
|00002150| 65 72 61 74 69 6f 6e 2c | 20 45 4e 44 42 4f 44 59 |eration,| ENDBODY|
|00002160| 20 69 73 20 65 76 61 6c | 75 61 74 65 64 20 61 6e | is eval|uated an|
|00002170| 64 20 74 68 65 20 6c 61 | 73 74 0a 66 6f 72 6d 20 |d the la|st.form |
|00002180| 69 6e 20 69 74 20 69 73 | 20 72 65 74 75 72 6e 65 |in it is| returne|
|00002190| 64 2e 0a 54 68 65 20 42 | 4f 44 59 20 28 77 68 69 |d..The B|ODY (whi|
|000021a0| 63 68 20 6d 61 79 20 62 | 65 20 65 6d 70 74 79 29 |ch may b|e empty)|
|000021b0| 20 69 73 20 65 76 61 6c | 75 61 74 65 64 20 61 74 | is eval|uated at|
|000021c0| 20 65 76 65 72 79 20 69 | 74 65 72 61 74 69 6f 6e | every i|teration|
|000021d0| 2c 20 77 69 74 68 0a 74 | 68 65 20 73 79 6d 62 6f |, with.t|he symbo|
|000021e0| 6c 73 20 6f 66 20 74 68 | 65 20 53 54 45 50 46 4f |ls of th|e STEPFO|
|000021f0| 52 4d 53 20 62 6f 75 6e | 64 20 74 6f 20 74 68 65 |RMS boun|d to the|
|00002200| 20 69 6e 69 74 69 61 6c | 20 6f 72 20 73 74 65 70 | initial| or step|
|00002210| 70 65 64 20 76 61 6c 75 | 65 73 2e 22 5d 29 29 0a |ped valu|es."])).|
|00002220| 28 64 65 66 61 6c 69 61 | 73 20 27 64 6f 2a 20 27 |(defalia|s 'do* '|
|00002230| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 73 74 65 70 |(macro .| #[(step|
|00002240| 66 6f 72 6d 73 20 65 6e | 64 66 6f 72 6d 73 20 26 |forms en|dforms &|
|00002250| 72 65 73 74 20 62 6f 64 | 79 29 20 22 c0 09 21 83 |rest bod|y) "..!.|
|00002260| 5c 6e 00 c2 0b 21 88 c4 | 09 21 c5 09 21 0b 40 0b |\n...!..|.!..!.@.|
|00002270| 41 1e 06 1e 07 1e 08 1e | 09 ca 0e 09 cb cc 0e 07 |A.......|........|
|00002280| 44 cd 0e 0e 0e 08 5c 22 | 42 42 cd 0e 06 21 2c 42 |D.....\"|BB...!,B|
|00002290| 42 42 87 22 20 5b 63 68 | 65 63 6b 2d 64 6f 2d 73 |BB." [ch|eck-do-s|
|000022a0| 74 65 70 66 6f 72 6d 73 | 20 73 74 65 70 66 6f 72 |tepforms| stepfor|
|000022b0| 6d 73 20 63 68 65 63 6b | 2d 64 6f 2d 65 6e 64 66 |ms check|-do-endf|
|000022c0| 6f 72 6d 73 20 65 6e 64 | 66 6f 72 6d 73 20 65 78 |orms end|forms ex|
|000022d0| 74 72 61 63 74 2d 64 6f | 2d 69 6e 69 74 73 20 65 |tract-do|-inits e|
|000022e0| 78 74 72 61 63 74 2d 64 | 6f 2a 2d 73 74 65 70 73 |xtract-d|o*-steps|
|000022f0| 20 65 6e 64 62 6f 64 79 | 20 65 6e 64 63 6f 6e 64 | endbody| endcond|
|00002300| 20 73 74 65 70 6c 69 73 | 74 20 69 6e 69 74 6c 69 | steplis|t initli|
|00002310| 73 74 20 6c 65 74 2a 20 | 77 68 69 6c 65 20 6e 6f |st let* |while no|
|00002320| 74 20 61 70 70 65 6e 64 | 20 62 6f 64 79 5d 20 37 |t append| body] 7|
|00002330| 20 22 5c 0a 60 64 6f 2a | 27 20 69 73 20 74 6f 20 | "\.`do*|' is to |
|00002340| 60 64 6f 27 20 61 73 20 | 60 6c 65 74 2a 27 20 69 |`do' as |`let*' i|
|00002350| 73 20 74 6f 20 60 6c 65 | 74 27 2e 0a 53 54 45 50 |s to `le|t'..STEP|
|00002360| 46 4f 52 4d 53 20 6d 75 | 73 74 20 62 65 20 61 20 |FORMS mu|st be a |
|00002370| 6c 69 73 74 20 6f 66 20 | 73 79 6d 62 6f 6c 73 20 |list of |symbols |
|00002380| 6f 72 20 6c 69 73 74 73 | 2e 20 20 49 6e 20 74 68 |or lists|. In th|
|00002390| 65 20 73 65 63 6f 6e 64 | 20 63 61 73 65 2c 20 74 |e second| case, t|
|000023a0| 68 65 0a 6c 69 73 74 73 | 20 6d 75 73 74 20 73 74 |he.lists| must st|
|000023b0| 61 72 74 20 77 69 74 68 | 20 61 20 73 79 6d 62 6f |art with| a symbo|
|000023c0| 6c 20 61 6e 64 20 63 6f | 6e 74 61 69 6e 20 75 70 |l and co|ntain up|
|000023d0| 20 74 6f 20 74 77 6f 20 | 6d 6f 72 65 20 66 6f 72 | to two |more for|
|000023e0| 6d 73 2e 20 49 6e 0a 74 | 68 65 20 53 54 45 50 46 |ms. In.t|he STEPF|
|000023f0| 4f 52 4d 53 2c 20 61 20 | 73 79 6d 62 6f 6c 20 69 |ORMS, a |symbol i|
|00002400| 73 20 74 68 65 20 73 61 | 6d 65 20 61 73 20 61 20 |s the sa|me as a |
|00002410| 28 73 79 6d 62 6f 6c 29 | 2e 20 20 54 68 65 20 6f |(symbol)|. The o|
|00002420| 74 68 65 72 20 32 20 66 | 6f 72 6d 73 0a 61 72 65 |ther 2 f|orms.are|
|00002430| 20 74 68 65 20 69 6e 69 | 74 69 61 6c 20 76 61 6c | the ini|tial val|
|00002440| 75 65 20 28 64 65 66 2e | 20 4e 49 4c 29 20 61 6e |ue (def.| NIL) an|
|00002450| 64 20 74 68 65 20 66 6f | 72 6d 20 74 6f 20 73 74 |d the fo|rm to st|
|00002460| 65 70 20 28 64 65 66 2e | 20 69 74 73 65 6c 66 29 |ep (def.| itself)|
|00002470| 2e 0a 49 6e 69 74 69 61 | 6c 69 7a 61 74 69 6f 6e |..Initia|lization|
|00002480| 73 20 61 6e 64 20 73 74 | 65 70 70 69 6e 67 73 20 |s and st|eppings |
|00002490| 61 72 65 20 64 6f 6e 65 | 20 69 6e 20 74 68 65 20 |are done| in the |
|000024a0| 73 65 71 75 65 6e 63 65 | 20 74 68 65 79 20 61 72 |sequence| they ar|
|000024b0| 65 20 77 72 69 74 74 65 | 6e 2e 0a 54 68 65 20 45 |e writte|n..The E|
|000024c0| 4e 44 46 4f 52 4d 53 20 | 61 72 65 20 61 20 6c 69 |NDFORMS |are a li|
|000024d0| 73 74 20 28 43 4f 4e 44 | 49 54 49 4f 4e 20 2e 20 |st (COND|ITION . |
|000024e0| 45 4e 44 42 4f 44 59 29 | 2e 20 20 49 66 20 74 68 |ENDBODY)|. If th|
|000024f0| 65 20 43 4f 4e 44 49 54 | 49 4f 4e 0a 65 76 61 6c |e CONDIT|ION.eval|
|00002500| 75 61 74 65 73 20 74 6f | 20 74 72 75 65 20 69 6e |uates to| true in|
|00002510| 20 61 6e 79 20 69 74 65 | 72 61 74 69 6f 6e 2c 20 | any ite|ration, |
|00002520| 45 4e 44 42 4f 44 59 20 | 69 73 20 65 76 61 6c 75 |ENDBODY |is evalu|
|00002530| 61 74 65 64 20 61 6e 64 | 20 74 68 65 20 6c 61 73 |ated and| the las|
|00002540| 74 0a 66 6f 72 6d 20 69 | 6e 20 69 74 20 69 73 20 |t.form i|n it is |
|00002550| 72 65 74 75 72 6e 65 64 | 2e 0a 54 68 65 20 42 4f |returned|..The BO|
|00002560| 44 59 20 28 77 68 69 63 | 68 20 6d 61 79 20 62 65 |DY (whic|h may be|
|00002570| 20 65 6d 70 74 79 29 20 | 69 73 20 65 76 61 6c 75 | empty) |is evalu|
|00002580| 61 74 65 64 20 61 74 20 | 65 76 65 72 79 20 69 74 |ated at |every it|
|00002590| 65 72 61 74 69 6f 6e 2c | 20 77 69 74 68 0a 74 68 |eration,| with.th|
|000025a0| 65 20 73 79 6d 62 6f 6c | 73 20 6f 66 20 74 68 65 |e symbol|s of the|
|000025b0| 20 53 54 45 50 46 4f 52 | 4d 53 20 62 6f 75 6e 64 | STEPFOR|MS bound|
|000025c0| 20 74 6f 20 74 68 65 20 | 69 6e 69 74 69 61 6c 20 | to the |initial |
|000025d0| 6f 72 20 73 74 65 70 70 | 65 64 20 76 61 6c 75 65 |or stepp|ed value|
|000025e0| 73 2e 22 5d 29 29 0a 28 | 64 65 66 61 6c 69 61 73 |s."])).(|defalias|
|000025f0| 20 27 63 68 65 63 6b 2d | 64 6f 2d 73 74 65 70 66 | 'check-|do-stepf|
|00002600| 6f 72 6d 73 20 23 5b 28 | 66 6f 72 6d 73 29 20 22 |orms #[(|forms) "|
|00002610| 08 3c 84 0c 00 c1 c2 c3 | 08 21 5c 22 87 c4 c5 08 |.<......|.!\"....|
|00002620| 5c 22 87 22 20 5b 66 6f | 72 6d 73 20 65 72 72 6f |\"." [fo|rms erro|
|00002630| 72 20 22 69 6e 69 74 2f | 73 74 65 70 20 66 6f 72 |r "init/|step for|
|00002640| 6d 20 66 6f 72 20 64 6f | 5b 2a 5d 20 73 68 6f 75 |m for do|[*] shou|
|00002650| 6c 64 20 62 65 20 61 20 | 6c 69 73 74 2c 20 6e 6f |ld be a |list, no|
|00002660| 74 20 60 25 73 27 22 20 | 70 72 69 6e 31 2d 74 6f |t `%s'" |prin1-to|
|00002670| 2d 73 74 72 69 6e 67 20 | 6d 61 70 63 61 72 20 23 |-string |mapcar #|
|00002680| 5b 28 65 6e 74 72 79 29 | 20 22 08 39 86 14 00 08 |[(entry)| ".9....|
|00002690| 3c 85 14 00 08 40 39 85 | 14 00 08 47 c1 57 3f 85 |<....@9.|...G.W?.|
|000026a0| 1f 00 c2 c3 c4 c5 08 21 | 23 87 22 20 5b 65 6e 74 |.......!|#." [ent|
|000026b0| 72 79 20 34 20 65 72 72 | 6f 72 20 22 69 6e 69 74 |ry 4 err|or "init|
|000026c0| 2f 73 74 65 70 20 6d 75 | 73 74 20 62 65 20 25 73 |/step mu|st be %s|
|000026d0| 2c 20 6e 6f 74 20 60 25 | 73 27 22 20 22 73 79 6d |, not `%|s'" "sym|
|000026e0| 62 6f 6c 20 6f 72 20 28 | 73 79 6d 62 6f 6c 20 5b |bol or (|symbol [|
|000026f0| 69 6e 69 74 20 5b 73 74 | 65 70 5d 5d 29 22 20 70 |init [st|ep]])" p|
|00002700| 72 69 6e 31 2d 74 6f 2d | 73 74 72 69 6e 67 5d 20 |rin1-to-|string] |
|00002710| 35 5d 5d 20 34 20 22 5c | 0a 54 72 75 65 20 69 66 |5]] 4 "\|.True if|
|00002720| 20 46 4f 52 4d 53 20 69 | 73 20 61 20 76 61 6c 69 | FORMS i|s a vali|
|00002730| 64 20 73 74 65 70 66 6f | 72 6d 73 20 66 6f 72 20 |d stepfo|rms for |
|00002740| 74 68 65 20 64 6f 5b 2a | 5d 20 6d 61 63 72 6f 20 |the do[*|] macro |
|00002750| 28 71 2e 76 2e 29 22 5d | 29 0a 28 64 65 66 61 6c |(q.v.)"]|).(defal|
|00002760| 69 61 73 20 27 63 68 65 | 63 6b 2d 64 6f 2d 65 6e |ias 'che|ck-do-en|
|00002770| 64 66 6f 72 6d 73 20 23 | 5b 28 66 6f 72 6d 73 29 |dforms #|[(forms)|
|00002780| 20 22 08 3c 3f 85 0c 00 | c1 c2 c3 08 21 5c 22 87 | ".<?...|....!\".|
|00002790| 22 20 5b 66 6f 72 6d 73 | 20 65 72 72 6f 72 20 22 |" [forms| error "|
|000027a0| 74 65 72 6d 69 6e 61 74 | 69 6f 6e 20 66 6f 72 6d |terminat|ion form|
|000027b0| 20 66 6f 72 20 64 6f 20 | 6d 61 63 72 6f 20 73 68 | for do |macro sh|
|000027c0| 6f 75 6c 64 20 62 65 20 | 61 20 6c 69 73 74 2c 20 |ould be |a list, |
|000027d0| 6e 6f 74 20 60 25 73 27 | 22 20 70 72 69 6e 31 2d |not `%s'|" prin1-|
|000027e0| 74 6f 2d 73 74 72 69 6e | 67 5d 20 34 20 22 5c 0a |to-strin|g] 4 "\.|
|000027f0| 54 72 75 65 20 69 66 20 | 46 4f 52 4d 53 20 69 73 |True if |FORMS is|
|00002800| 20 61 20 76 61 6c 69 64 | 20 65 6e 64 66 6f 72 6d | a valid| endform|
|00002810| 73 20 66 6f 72 20 74 68 | 65 20 64 6f 5b 2a 5d 20 |s for th|e do[*] |
|00002820| 6d 61 63 72 6f 20 28 71 | 2e 76 2e 29 22 5d 29 0a |macro (q|.v.)"]).|
|00002830| 28 64 65 66 61 6c 69 61 | 73 20 27 65 78 74 72 61 |(defalia|s 'extra|
|00002840| 63 74 2d 64 6f 2d 69 6e | 69 74 73 20 23 5b 28 66 |ct-do-in|its #[(f|
|00002850| 6f 72 6d 73 29 20 22 c0 | c1 5c 6e 5c 22 87 22 20 |orms) ".|.\n\"." |
|00002860| 5b 6d 61 70 63 61 72 20 | 23 5b 28 65 6e 74 72 79 |[mapcar |#[(entry|
|00002870| 29 20 22 08 39 83 09 00 | 08 c1 44 87 08 3c 85 17 |) ".9...|..D..<..|
|00002880| 00 08 40 08 89 1a 41 40 | 29 44 87 22 20 5b 65 6e |..@...A@|)D." [en|
|00002890| 74 72 79 20 6e 69 6c 20 | 58 5d 20 33 5d 20 66 6f |try nil |X] 3] fo|
|000028a0| 72 6d 73 5d 20 33 20 22 | 5c 0a 52 65 74 75 72 6e |rms] 3 "|\.Return|
|000028b0| 73 20 61 20 6c 69 73 74 | 20 6f 66 20 74 68 65 20 |s a list| of the |
|000028c0| 69 6e 69 74 69 61 6c 69 | 7a 61 74 69 6f 6e 73 20 |initiali|zations |
|000028d0| 28 66 6f 72 20 64 6f 29 | 20 69 6e 20 46 4f 52 4d |(for do)| in FORM|
|000028e0| 53 0a 2d 2d 61 20 73 74 | 65 70 66 6f 72 6d 73 2c |S.--a st|epforms,|
|000028f0| 20 73 65 65 20 74 68 65 | 20 64 6f 20 6d 61 63 72 | see the| do macr|
|00002900| 6f 2d 2d 2e 20 46 4f 52 | 4d 53 20 69 73 20 61 73 |o--. FOR|MS is as|
|00002910| 73 75 6d 65 64 20 73 79 | 6e 74 61 63 74 69 63 61 |sumed sy|ntactica|
|00002920| 6c 6c 79 20 76 61 6c 69 | 64 2e 22 5d 29 0a 28 64 |lly vali|d."]).(d|
|00002930| 65 66 61 6c 69 61 73 20 | 27 65 78 74 72 61 63 74 |efalias |'extract|
|00002940| 2d 64 6f 2d 73 74 65 70 | 73 20 23 5b 28 66 6f 72 |-do-step|s #[(for|
|00002950| 6d 73 29 20 22 c0 c1 5c | 6e 21 42 43 87 22 20 5b |ms) "..\|n!BC." [|
|00002960| 70 73 65 74 71 20 73 65 | 6c 65 63 74 2d 73 74 65 |psetq se|lect-ste|
|00002970| 70 70 69 6e 67 2d 66 6f | 72 6d 73 20 66 6f 72 6d |pping-fo|rms form|
|00002980| 73 5d 20 33 20 22 5c 0a | 45 58 54 52 41 43 54 2d |s] 3 "\.|EXTRACT-|
|00002990| 44 4f 2d 53 54 45 50 53 | 20 46 4f 52 4d 53 20 3d |DO-STEPS| FORMS =|
|000029a0| 3e 20 61 6e 20 73 2d 65 | 78 70 72 0a 46 4f 52 4d |> an s-e|xpr.FORM|
|000029b0| 53 20 69 73 20 74 68 65 | 20 73 74 65 70 66 6f 72 |S is the| stepfor|
|000029c0| 6d 73 20 70 61 72 74 20 | 6f 66 20 61 20 44 4f 20 |ms part |of a DO |
|000029d0| 6d 61 63 72 6f 20 28 71 | 2e 76 2e 29 2e 20 20 54 |macro (q|.v.). T|
|000029e0| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 0a 63 6f 6e |his func|tion.con|
|000029f0| 73 74 72 75 63 74 73 20 | 61 6e 20 73 2d 65 78 70 |structs |an s-exp|
|00002a00| 72 65 73 73 69 6f 6e 20 | 74 68 61 74 20 64 6f 65 |ression |that doe|
|00002a10| 73 20 74 68 65 20 73 74 | 65 70 70 69 6e 67 20 61 |s the st|epping a|
|00002a20| 74 20 74 68 65 20 65 6e | 64 20 6f 66 20 61 6e 0a |t the en|d of an.|
|00002a30| 69 74 65 72 61 74 69 6f | 6e 2e 22 5d 29 0a 28 64 |iteratio|n."]).(d|
|00002a40| 65 66 61 6c 69 61 73 20 | 27 65 78 74 72 61 63 74 |efalias |'extract|
|00002a50| 2d 64 6f 2a 2d 73 74 65 | 70 73 20 23 5b 28 66 6f |-do*-ste|ps #[(fo|
|00002a60| 72 6d 73 29 20 22 c0 c1 | 5c 6e 21 42 43 87 22 20 |rms) "..|\n!BC." |
|00002a70| 5b 73 65 74 71 20 73 65 | 6c 65 63 74 2d 73 74 65 |[setq se|lect-ste|
|00002a80| 70 70 69 6e 67 2d 66 6f | 72 6d 73 20 66 6f 72 6d |pping-fo|rms form|
|00002a90| 73 5d 20 33 20 22 5c 0a | 45 58 54 52 41 43 54 2d |s] 3 "\.|EXTRACT-|
|00002aa0| 44 4f 2a 2d 53 54 45 50 | 53 20 46 4f 52 4d 53 20 |DO*-STEP|S FORMS |
|00002ab0| 3d 3e 20 61 6e 20 73 2d | 65 78 70 72 0a 46 4f 52 |=> an s-|expr.FOR|
|00002ac0| 4d 53 20 69 73 20 74 68 | 65 20 73 74 65 70 66 6f |MS is th|e stepfo|
|00002ad0| 72 6d 73 20 70 61 72 74 | 20 6f 66 20 61 20 44 4f |rms part| of a DO|
|00002ae0| 2a 20 6d 61 63 72 6f 20 | 28 71 2e 76 2e 29 2e 20 |* macro |(q.v.). |
|00002af0| 20 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 0a 63 | This fu|nction.c|
|00002b00| 6f 6e 73 74 72 75 63 74 | 73 20 61 6e 20 73 2d 65 |onstruct|s an s-e|
|00002b10| 78 70 72 65 73 73 69 6f | 6e 20 74 68 61 74 20 64 |xpressio|n that d|
|00002b20| 6f 65 73 20 74 68 65 20 | 73 74 65 70 70 69 6e 67 |oes the |stepping|
|00002b30| 20 61 74 20 74 68 65 20 | 65 6e 64 20 6f 66 20 61 | at the |end of a|
|00002b40| 6e 0a 69 74 65 72 61 74 | 69 6f 6e 2e 22 5d 29 0a |n.iterat|ion."]).|
|00002b50| 28 64 65 66 61 6c 69 61 | 73 20 27 73 65 6c 65 63 |(defalia|s 'selec|
|00002b60| 74 2d 73 74 65 70 70 69 | 6e 67 2d 66 6f 72 6d 73 |t-steppi|ng-forms|
|00002b70| 20 23 5b 28 66 6f 72 6d | 73 29 20 22 c0 09 c0 1a | #[(form|s) "....|
|00002b80| 1b 1c 0b 83 2f 00 0b 40 | 89 12 3c 83 28 00 5c 6e |..../..@|..<.(.\n|
|00002b90| 47 c5 55 83 28 00 c6 5c | 6e 89 1e 07 41 41 40 29 |G.U.(..\|n...AA@)|
|00002ba0| 5c 6e 40 44 0c 5c 22 14 | 0b 41 89 13 84 5c 6e 00 |\n@D.\".|.A...\n.|
|00002bb0| 0c 9f 2b 87 22 20 5b 6e | 69 6c 20 66 6f 72 6d 73 |..+." [n|il forms|
|00002bc0| 20 65 6e 74 72 79 20 70 | 74 72 20 72 65 73 75 6c | entry p|tr resul|
|00002bd0| 74 20 33 20 61 70 70 65 | 6e 64 20 58 5d 20 34 20 |t 3 appe|nd X] 4 |
|00002be0| 22 5c 0a 53 65 70 61 72 | 61 74 65 20 6f 6e 6c 79 |"\.Separ|ate only|
|00002bf0| 20 74 68 65 20 66 6f 72 | 6d 73 20 74 68 61 74 20 | the for|ms that |
|00002c00| 63 61 75 73 65 20 73 74 | 65 70 70 69 6e 67 2e 22 |cause st|epping."|
|00002c10| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 6f |]).(defa|lias 'do|
|00002c20| 6c 69 73 74 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |list '(m|acro . #|
|00002c30| 5b 28 73 74 65 70 66 6f | 72 6d 20 26 72 65 73 74 |[(stepfo|rm &rest|
|00002c40| 20 62 6f 64 79 29 20 22 | 08 3c 84 0f 00 c1 c2 c3 | body) "|.<......|
|00002c50| 08 21 5c 22 88 82 2e 00 | 08 40 39 84 20 00 c1 c4 |.!\"....|.@9. ...|
|00002c60| c3 08 40 21 5c 22 88 82 | 2e 00 08 47 c5 56 83 2e |..@!\"..|...G.V..|
|00002c70| 00 c1 c6 c3 08 21 5c 22 | 88 08 40 1e 07 08 89 1e |.....!\"|..@.....|
|00002c80| 08 41 40 29 1e 09 08 89 | 1e 08 41 41 40 29 1e 5c |.A@)....|..AA@).\|
|00002c90| 6e cb 20 1e 0c cd 0e 07 | 0e 0c 0e 09 44 44 ce 0e |n. .....|....DD..|
|00002ca0| 0c cf 0e 07 d0 0e 0c 44 | 0e 0c d1 0e 0c 44 af 05 |.......D|.....D..|
|00002cb0| 45 0e 12 a4 45 0e 5c 6e | 85 77 00 cf 0e 07 d3 45 |E...E.\n|.w.....E|
|00002cc0| 0e 5c 6e 43 42 a4 2c 87 | 22 20 5b 73 74 65 70 66 |.\nCB.,.|" [stepf|
|00002cd0| 6f 72 6d 20 65 72 72 6f | 72 20 22 73 74 65 70 66 |orm erro|r "stepf|
|00002ce0| 6f 72 6d 20 66 6f 72 20 | 60 64 6f 6c 69 73 74 27 |orm for |`dolist'|
|00002cf0| 20 73 68 6f 75 6c 64 20 | 62 65 20 28 56 41 52 20 | should |be (VAR |
|00002d00| 4c 49 53 54 20 5b 52 45 | 53 55 4c 54 5d 29 2c 20 |LIST [RE|SULT]), |
|00002d10| 6e 6f 74 20 60 25 73 27 | 22 20 70 72 69 6e 31 2d |not `%s'|" prin1-|
|00002d20| 74 6f 2d 73 74 72 69 6e | 67 20 22 66 69 72 73 74 |to-strin|g "first|
|00002d30| 20 63 6f 6d 70 6f 6e 65 | 6e 74 20 6f 66 20 73 74 | compone|nt of st|
|00002d40| 65 70 66 6f 72 6d 20 73 | 68 6f 75 6c 64 20 62 65 |epform s|hould be|
|00002d50| 20 61 20 73 79 6d 62 6f | 6c 2c 20 6e 6f 74 20 60 | a symbo|l, not `|
|00002d60| 25 73 27 22 20 33 20 22 | 74 6f 6f 20 6d 61 6e 79 |%s'" 3 "|too many|
|00002d70| 20 63 6f 6d 70 6f 6e 65 | 6e 74 73 20 69 6e 20 73 | compone|nts in s|
|00002d80| 74 65 70 66 6f 72 6d 20 | 60 25 73 27 22 20 76 61 |tepform |`%s'" va|
|00002d90| 72 20 58 20 6c 69 73 74 | 66 6f 72 6d 20 72 65 73 |r X list|form res|
|00002da0| 75 6c 74 66 6f 72 6d 20 | 67 65 6e 74 65 6d 70 20 |ultform |gentemp |
|00002db0| 6c 69 73 74 73 79 6d 20 | 6c 65 74 20 77 68 69 6c |listsym |let whil|
|00002dc0| 65 20 73 65 74 71 20 63 | 61 72 20 63 64 72 20 62 |e setq c|ar cdr b|
|00002dd0| 6f 64 79 20 6e 69 6c 5d | 20 31 31 20 22 5c 0a 28 |ody nil]| 11 "\.(|
|00002de0| 64 6f 6c 69 73 74 20 28 | 56 41 52 20 4c 49 53 54 |dolist (|VAR LIST|
|00002df0| 20 5b 52 45 53 55 4c 54 | 46 4f 52 4d 5d 29 20 2e | [RESULT|FORM]) .|
|00002e00| 20 42 4f 44 59 29 3a 20 | 64 6f 20 42 4f 44 59 20 | BODY): |do BODY |
|00002e10| 66 6f 72 20 65 61 63 68 | 20 65 6c 74 20 6f 66 20 |for each| elt of |
|00002e20| 4c 49 53 54 2e 0a 54 68 | 65 20 52 45 53 55 4c 54 |LIST..Th|e RESULT|
|00002e30| 46 4f 52 4d 20 64 65 66 | 61 75 6c 74 73 20 74 6f |FORM def|aults to|
|00002e40| 20 6e 69 6c 2e 20 20 54 | 68 65 20 56 41 52 20 69 | nil. T|he VAR i|
|00002e50| 73 20 62 6f 75 6e 64 20 | 74 6f 20 73 75 63 63 65 |s bound |to succe|
|00002e60| 73 73 69 76 65 0a 65 6c | 65 6d 65 6e 74 73 20 6f |ssive.el|ements o|
|00002e70| 66 20 74 68 65 20 76 61 | 6c 75 65 20 6f 66 20 4c |f the va|lue of L|
|00002e80| 49 53 54 20 61 6e 64 20 | 72 65 6d 61 69 6e 73 20 |IST and |remains |
|00002e90| 62 6f 75 6e 64 20 28 74 | 6f 20 74 68 65 20 6e 69 |bound (t|o the ni|
|00002ea0| 6c 20 76 61 6c 75 65 29 | 20 77 68 65 6e 20 74 68 |l value)| when th|
|00002eb0| 65 0a 52 45 53 55 4c 54 | 46 4f 52 4d 20 69 73 20 |e.RESULT|FORM is |
|00002ec0| 65 76 61 6c 75 61 74 65 | 64 2e 22 5d 29 29 0a 28 |evaluate|d."])).(|
|00002ed0| 64 65 66 61 6c 69 61 73 | 20 27 64 6f 74 69 6d 65 |defalias| 'dotime|
|00002ee0| 73 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 73 |s '(macr|o . #[(s|
|00002ef0| 74 65 70 66 6f 72 6d 20 | 26 72 65 73 74 20 62 6f |tepform |&rest bo|
|00002f00| 64 79 29 20 22 08 3c 84 | 0f 00 c1 c2 c3 08 21 5c |dy) ".<.|......!\|
|00002f10| 22 88 82 2e 00 08 40 39 | 84 20 00 c1 c4 c3 08 40 |".....@9|. .....@|
|00002f20| 21 5c 22 88 82 2e 00 08 | 47 c5 56 83 2e 00 c1 c6 |!\".....|G.V.....|
|00002f30| c3 08 21 5c 22 88 08 40 | 1e 07 08 89 1e 08 41 40 |..!\"..@|......A@|
|00002f40| 29 1e 09 08 89 1e 08 41 | 41 40 29 1e 5c 6e 0e 09 |)......A|A@).\n..|
|00002f50| 3a 83 50 00 cb 20 82 52 | 00 0e 09 1e 0c cd 0e 07 |:.P.. .R|........|
|00002f60| ce 44 0e 09 0e 0c 3d 3f | 85 68 00 0e 0c 0e 09 44 |.D....=?|.h.....D|
|00002f70| 43 42 cf d0 d1 0e 07 d2 | 0e 07 44 45 0e 0c 45 44 |CB......|..DE..ED|
|00002f80| 0e 13 a4 45 0e 5c 6e 85 | 83 00 0e 5c 6e 43 a4 2c |...E.\n.|...\nC.,|
|00002f90| 87 22 20 5b 73 74 65 70 | 66 6f 72 6d 20 65 72 72 |." [step|form err|
|00002fa0| 6f 72 20 22 73 74 65 70 | 66 6f 72 6d 20 66 6f 72 |or "step|form for|
|00002fb0| 20 60 64 6f 74 69 6d 65 | 73 27 20 73 68 6f 75 6c | `dotime|s' shoul|
|00002fc0| 64 20 62 65 20 28 56 41 | 52 20 43 4f 55 4e 54 20 |d be (VA|R COUNT |
|00002fd0| 5b 52 45 53 55 4c 54 5d | 29 2c 20 6e 6f 74 20 60 |[RESULT]|), not `|
|00002fe0| 25 73 27 22 20 70 72 69 | 6e 31 2d 74 6f 2d 73 74 |%s'" pri|n1-to-st|
|00002ff0| 72 69 6e 67 20 22 66 69 | 72 73 74 20 63 6f 6d 70 |ring "fi|rst comp|
|00003000| 6f 6e 65 6e 74 20 6f 66 | 20 73 74 65 70 66 6f 72 |onent of| stepfor|
|00003010| 6d 20 73 68 6f 75 6c 64 | 20 62 65 20 61 20 73 79 |m should| be a sy|
|00003020| 6d 62 6f 6c 2c 20 6e 6f | 74 20 60 25 73 27 22 20 |mbol, no|t `%s'" |
|00003030| 33 20 22 74 6f 6f 20 6d | 61 6e 79 20 63 6f 6d 70 |3 "too m|any comp|
|00003040| 6f 6e 65 6e 74 73 20 69 | 6e 20 73 74 65 70 66 6f |onents i|n stepfo|
|00003050| 72 6d 20 60 25 73 27 22 | 20 76 61 72 20 58 20 63 |rm `%s'"| var X c|
|00003060| 6f 75 6e 74 66 6f 72 6d | 20 72 65 73 75 6c 74 66 |ountform| resultf|
|00003070| 6f 72 6d 20 67 65 6e 74 | 65 6d 70 20 74 65 73 74 |orm gent|emp test|
|00003080| 73 79 6d 20 6c 65 74 20 | 2d 31 20 77 68 69 6c 65 |sym let |-1 while|
|00003090| 20 3c 20 73 65 74 71 20 | 31 2b 20 62 6f 64 79 5d | < setq |1+ body]|
|000030a0| 20 39 20 22 5c 0a 28 64 | 6f 74 69 6d 65 73 20 28 | 9 "\.(d|otimes (|
|000030b0| 56 41 52 20 43 4f 55 4e | 54 46 4f 52 4d 20 5b 52 |VAR COUN|TFORM [R|
|000030c0| 45 53 55 4c 54 46 4f 52 | 4d 5d 29 20 2e 20 20 42 |ESULTFOR|M]) . B|
|000030d0| 4f 44 59 29 3a 20 52 65 | 70 65 61 74 20 42 4f 44 |ODY): Re|peat BOD|
|000030e0| 59 2c 20 63 6f 75 6e 74 | 69 6e 67 20 69 6e 20 56 |Y, count|ing in V|
|000030f0| 41 52 2e 0a 54 68 65 20 | 43 4f 55 4e 54 46 4f 52 |AR..The |COUNTFOR|
|00003100| 4d 20 73 68 6f 75 6c 64 | 20 72 65 74 75 72 6e 20 |M should| return |
|00003110| 61 20 70 6f 73 69 74 69 | 76 65 20 69 6e 74 65 67 |a positi|ve integ|
|00003120| 65 72 2e 20 20 54 68 65 | 20 56 41 52 20 69 73 20 |er. The| VAR is |
|00003130| 62 6f 75 6e 64 20 74 6f | 0a 73 75 63 63 65 73 73 |bound to|.success|
|00003140| 69 76 65 20 69 6e 74 65 | 67 65 72 73 20 66 72 6f |ive inte|gers fro|
|00003150| 6d 20 30 20 74 6f 20 43 | 4f 55 4e 54 46 4f 52 4d |m 0 to C|OUNTFORM|
|00003160| 2d 31 20 61 6e 64 20 74 | 68 65 20 42 4f 44 59 20 |-1 and t|he BODY |
|00003170| 69 73 20 72 65 70 65 61 | 74 65 64 20 66 6f 72 0a |is repea|ted for.|
|00003180| 65 61 63 68 20 6f 66 20 | 74 68 65 6d 2e 20 20 41 |each of |them. A|
|00003190| 74 20 74 68 65 20 65 6e | 64 2c 20 74 68 65 20 52 |t the en|d, the R|
|000031a0| 45 53 55 4c 54 46 4f 52 | 4d 20 69 73 20 65 76 61 |ESULTFOR|M is eva|
|000031b0| 6c 75 61 74 65 64 20 61 | 6e 64 20 69 74 73 20 76 |luated a|nd its v|
|000031c0| 61 6c 75 65 0a 72 65 74 | 75 72 6e 65 64 2e 20 44 |alue.ret|urned. D|
|000031d0| 75 72 69 6e 67 20 74 68 | 69 73 20 6c 61 73 74 20 |uring th|is last |
|000031e0| 65 76 61 6c 75 61 74 69 | 6f 6e 2c 20 74 68 65 20 |evaluati|on, the |
|000031f0| 56 41 52 20 69 73 20 73 | 74 69 6c 6c 20 62 6f 75 |VAR is s|till bou|
|00003200| 6e 64 2c 20 61 6e 64 20 | 69 74 73 0a 76 61 6c 75 |nd, and |its.valu|
|00003210| 65 20 69 73 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |e is the| number |
|00003220| 6f 66 20 74 69 6d 65 73 | 20 74 68 65 20 69 74 65 |of times| the ite|
|00003230| 72 61 74 69 6f 6e 20 6f | 63 63 75 72 72 65 64 2e |ration o|ccurred.|
|00003240| 20 41 6e 20 6f 6d 69 74 | 74 65 64 20 52 45 53 55 | An omit|ted RESU|
|00003250| 4c 54 46 4f 52 4d 0a 64 | 65 66 61 75 6c 74 73 20 |LTFORM.d|efaults |
|00003260| 74 6f 20 6e 69 6c 2e 22 | 5d 29 29 0a 28 64 65 66 |to nil."|])).(def|
|00003270| 61 6c 69 61 73 20 27 64 | 6f 2d 73 79 6d 62 6f 6c |alias 'd|o-symbol|
|00003280| 73 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 73 |s '(macr|o . #[(s|
|00003290| 74 65 70 66 6f 72 6d 20 | 26 72 65 73 74 20 62 6f |tepform |&rest bo|
|000032a0| 64 79 29 20 22 08 3c 84 | 0f 00 c1 c2 c3 08 21 5c |dy) ".<.|......!\|
|000032b0| 22 88 82 2e 00 08 40 39 | 84 20 00 c1 c4 c3 08 40 |".....@9|. .....@|
|000032c0| 21 5c 22 88 82 2e 00 08 | 47 c5 56 83 2e 00 c1 c6 |!\".....|G.V.....|
|000032d0| c3 08 21 5c 22 88 08 40 | 1e 07 08 89 1e 08 41 40 |..!\"..@|......A@|
|000032e0| 29 1e 09 08 89 1e 08 41 | 41 40 29 1e 5c 6e cb cc |)......A|A@).\n..|
|000032f0| cd ce 0e 07 43 0e 0f 42 | 42 44 0e 09 45 d0 0e 07 |....C..B|BD..E...|
|00003300| d1 44 43 0e 5c 6e 45 45 | 2b 87 22 20 5b 73 74 65 |.DC.\nEE|+." [ste|
|00003310| 70 66 6f 72 6d 20 65 72 | 72 6f 72 20 22 73 74 65 |pform er|ror "ste|
|00003320| 70 66 6f 72 6d 20 66 6f | 72 20 60 64 6f 2d 73 79 |pform fo|r `do-sy|
|00003330| 6d 62 6f 6c 73 27 20 73 | 68 6f 75 6c 64 20 62 65 |mbols' s|hould be|
|00003340| 20 28 56 41 52 20 4f 42 | 41 52 52 41 59 20 5b 52 | (VAR OB|ARRAY [R|
|00003350| 45 53 55 4c 54 5d 29 2c | 20 6e 6f 74 20 60 25 73 |ESULT]),| not `%s|
|00003360| 27 22 20 70 72 69 6e 31 | 2d 74 6f 2d 73 74 72 69 |'" prin1|-to-stri|
|00003370| 6e 67 20 22 66 69 72 73 | 74 20 63 6f 6d 70 6f 6e |ng "firs|t compon|
|00003380| 65 6e 74 20 6f 66 20 73 | 74 65 70 66 6f 72 6d 20 |ent of s|tepform |
|00003390| 73 68 6f 75 6c 64 20 62 | 65 20 61 20 73 79 6d 62 |should b|e a symb|
|000033a0| 6f 6c 2c 20 6e 6f 74 20 | 60 25 73 27 22 20 33 20 |ol, not |`%s'" 3 |
|000033b0| 22 74 6f 6f 20 6d 61 6e | 79 20 63 6f 6d 70 6f 6e |"too man|y compon|
|000033c0| 65 6e 74 73 20 69 6e 20 | 73 74 65 70 66 6f 72 6d |ents in |stepform|
|000033d0| 20 60 25 73 27 22 20 76 | 61 72 20 58 20 6f 62 6c | `%s'" v|ar X obl|
|000033e0| 69 73 74 20 72 65 73 75 | 6c 74 66 6f 72 6d 20 70 |ist resu|ltform p|
|000033f0| 72 6f 67 6e 20 6d 61 70 | 61 74 6f 6d 73 20 66 75 |rogn map|atoms fu|
|00003400| 6e 63 74 69 6f 6e 20 6c | 61 6d 62 64 61 20 62 6f |nction l|ambda bo|
|00003410| 64 79 20 6c 65 74 20 6e | 69 6c 5d 20 37 20 22 5c |dy let n|il] 7 "\|
|00003420| 0a 28 64 6f 5f 73 79 6d | 62 6f 6c 73 20 28 56 41 |.(do_sym|bols (VA|
|00003430| 52 20 5b 4f 42 41 52 52 | 41 59 20 5b 52 45 53 55 |R [OBARR|AY [RESU|
|00003440| 4c 54 46 4f 52 4d 5d 5d | 29 20 2e 20 42 4f 44 59 |LTFORM]]|) . BODY|
|00003450| 29 0a 54 68 65 20 56 41 | 52 20 69 73 20 62 6f 75 |).The VA|R is bou|
|00003460| 6e 64 20 74 6f 20 65 61 | 63 68 20 6f 66 20 74 68 |nd to ea|ch of th|
|00003470| 65 20 73 79 6d 62 6f 6c | 73 20 69 6e 20 4f 42 41 |e symbol|s in OBA|
|00003480| 52 52 41 59 20 28 64 65 | 66 2e 20 6f 62 61 72 72 |RRAY (de|f. obarr|
|00003490| 61 79 29 20 61 6e 64 0a | 74 68 65 20 42 4f 44 59 |ay) and.|the BODY|
|000034a0| 20 69 73 20 72 65 70 65 | 61 74 65 64 6c 79 20 70 | is repe|atedly p|
|000034b0| 65 72 66 6f 72 6d 65 64 | 20 66 6f 72 20 65 61 63 |erformed| for eac|
|000034c0| 68 20 6f 66 20 74 68 6f | 73 65 20 62 69 6e 64 69 |h of tho|se bindi|
|000034d0| 6e 67 73 2e 20 41 74 20 | 74 68 65 0a 65 6e 64 2c |ngs. At |the.end,|
|000034e0| 20 52 45 53 55 4c 54 46 | 4f 52 4d 20 28 64 65 66 | RESULTF|ORM (def|
|000034f0| 2e 20 6e 69 6c 29 20 69 | 73 20 65 76 61 6c 75 61 |. nil) i|s evalua|
|00003500| 74 65 64 20 61 6e 64 20 | 69 74 73 20 76 61 6c 75 |ted and |its valu|
|00003510| 65 20 72 65 74 75 72 6e | 65 64 2e 0a 44 75 72 69 |e return|ed..Duri|
|00003520| 6e 67 20 74 68 69 73 20 | 6c 61 73 74 20 65 76 61 |ng this |last eva|
|00003530| 6c 75 61 74 69 6f 6e 2c | 20 74 68 65 20 56 41 52 |luation,| the VAR|
|00003540| 20 69 73 20 73 74 69 6c | 6c 20 62 6f 75 6e 64 20 | is stil|l bound |
|00003550| 61 6e 64 20 69 74 73 20 | 76 61 6c 75 65 20 69 73 |and its |value is|
|00003560| 20 6e 69 6c 2e 0a 53 65 | 65 20 61 6c 73 6f 20 74 | nil..Se|e also t|
|00003570| 68 65 20 66 75 6e 63 74 | 69 6f 6e 20 60 6d 61 70 |he funct|ion `map|
|00003580| 61 74 6f 6d 73 27 2e 22 | 5d 29 29 0a 28 64 65 66 |atoms'."|])).(def|
|00003590| 61 6c 69 61 73 20 27 64 | 6f 2d 61 6c 6c 2d 73 79 |alias 'd|o-all-sy|
|000035a0| 6d 62 6f 6c 73 20 27 28 | 6d 61 63 72 6f 20 2e 20 |mbols '(|macro . |
|000035b0| 23 5b 28 73 74 65 70 66 | 6f 72 6d 20 26 72 65 73 |#[(stepf|orm &res|
|000035c0| 74 20 62 6f 64 79 29 20 | 22 c0 c1 5c 6e 40 c3 5c |t body) |"..\n@.\|
|000035d0| 6e 89 1c 41 40 29 45 0d | 23 87 22 20 5b 6c 69 73 |n..A@)E.|#." [lis|
|000035e0| 74 2a 20 64 6f 2d 73 79 | 6d 62 6f 6c 73 20 73 74 |t* do-sy|mbols st|
|000035f0| 65 70 66 6f 72 6d 20 6f | 62 61 72 72 61 79 20 58 |epform o|barray X|
|00003600| 20 62 6f 64 79 5d 20 36 | 20 22 5c 0a 28 64 6f 2d | body] 6| "\.(do-|
|00003610| 61 6c 6c 2d 73 79 6d 62 | 6f 6c 73 20 28 56 41 52 |all-symb|ols (VAR|
|00003620| 20 5b 52 45 53 55 4c 54 | 46 4f 52 4d 5d 29 20 2e | [RESULT|FORM]) .|
|00003630| 20 42 4f 44 59 29 0a 49 | 73 20 74 68 65 20 73 61 | BODY).I|s the sa|
|00003640| 6d 65 20 61 73 20 28 64 | 6f 2d 73 79 6d 62 6f 6c |me as (d|o-symbol|
|00003650| 73 20 28 56 41 52 20 6f | 62 61 72 72 61 79 20 52 |s (VAR o|barray R|
|00003660| 45 53 55 4c 54 46 4f 52 | 4d 29 20 2e 20 42 4f 44 |ESULTFOR|M) . BOD|
|00003670| 59 29 2e 22 5d 29 29 0a | 28 64 65 66 61 6c 69 61 |Y)."])).|(defalia|
|00003680| 73 20 27 6c 6f 6f 70 20 | 27 28 6d 61 63 72 6f 20 |s 'loop |'(macro |
|00003690| 2e 20 23 5b 28 26 72 65 | 73 74 20 62 6f 64 79 29 |. #[(&re|st body)|
|000036a0| 20 22 08 3c 84 09 00 c1 | c2 21 87 c3 c4 08 5c 22 | ".<....|.!....\"|
|000036b0| 88 c5 c6 08 42 42 87 22 | 20 5b 62 6f 64 79 20 65 |....BB."| [body e|
|000036c0| 72 72 6f 72 20 22 62 6f | 64 79 20 6f 66 20 60 6c |rror "bo|dy of `l|
|000036d0| 6f 6f 70 27 20 73 68 6f | 75 6c 64 20 62 65 20 61 |oop' sho|uld be a|
|000036e0| 20 6c 69 73 74 20 6f 66 | 20 6c 69 73 74 73 20 6f | list of| lists o|
|000036f0| 72 20 6e 69 6c 22 20 6d | 61 70 63 61 72 20 23 5b |r nil" m|apcar #[|
|00003700| 28 63 6f 6d 70 6f 6e 65 | 6e 74 29 20 22 08 3c 3f |(compone|nt) ".<?|
|00003710| 85 09 00 c1 c2 21 87 22 | 20 5b 63 6f 6d 70 6f 6e |.....!."| [compon|
|00003720| 65 6e 74 20 65 72 72 6f | 72 20 22 63 6f 6d 70 6f |ent erro|r "compo|
|00003730| 6e 65 6e 74 73 20 6f 66 | 20 60 6c 6f 6f 70 27 20 |nents of| `loop' |
|00003740| 73 68 6f 75 6c 64 20 62 | 65 20 6c 69 73 74 73 22 |should b|e lists"|
|00003750| 5d 20 32 5d 20 77 68 69 | 6c 65 20 74 5d 20 33 20 |] 2] whi|le t] 3 |
|00003760| 22 5c 0a 28 6c 6f 6f 70 | 20 2e 20 42 4f 44 59 29 |"\.(loop| . BODY)|
|00003770| 20 72 65 70 65 61 74 73 | 20 42 4f 44 59 20 69 6e | repeats| BODY in|
|00003780| 64 65 66 69 6e 69 74 65 | 6c 79 20 61 6e 64 20 64 |definite|ly and d|
|00003790| 6f 65 73 20 6e 6f 74 20 | 72 65 74 75 72 6e 2e 0a |oes not |return..|
|000037a0| 4e 6f 72 6d 61 6c 6c 79 | 20 42 4f 44 59 20 75 73 |Normally| BODY us|
|000037b0| 65 73 20 60 74 68 72 6f | 77 27 20 6f 72 20 60 73 |es `thro|w' or `s|
|000037c0| 69 67 6e 61 6c 27 20 74 | 6f 20 63 61 75 73 65 20 |ignal' t|o cause |
|000037d0| 61 6e 20 65 78 69 74 2e | 0a 54 68 65 20 66 6f 72 |an exit.|.The for|
|000037e0| 6d 73 20 69 6e 20 42 4f | 44 59 20 73 68 6f 75 6c |ms in BO|DY shoul|
|000037f0| 64 20 62 65 20 6c 69 73 | 74 73 2c 20 61 73 20 6e |d be lis|ts, as n|
|00003800| 6f 6e 2d 6c 69 73 74 73 | 20 61 72 65 20 72 65 73 |on-lists| are res|
|00003810| 65 72 76 65 64 20 66 6f | 72 20 6e 65 77 20 66 65 |erved fo|r new fe|
|00003820| 61 74 75 72 65 73 2e 22 | 5d 29 29 0a 28 64 65 66 |atures."|])).(def|
|00003830| 61 6c 69 61 73 20 27 66 | 69 72 73 74 20 23 5b 28 |alias 'f|irst #[(|
|00003840| 78 29 20 22 08 40 87 22 | 20 5b 78 5d 20 31 20 22 |x) ".@."| [x] 1 "|
|00003850| 5c 0a 53 79 6e 6f 6e 79 | 6d 20 66 6f 72 20 60 63 |\.Synony|m for `c|
|00003860| 61 72 27 22 5d 29 0a 28 | 70 75 74 20 28 71 75 6f |ar'"]).(|put (quo|
|00003870| 74 65 20 66 69 72 73 74 | 29 20 28 71 75 6f 74 65 |te first|) (quote|
|00003880| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 29 | byte-op|timizer)|
|00003890| 20 28 71 75 6f 74 65 20 | 62 79 74 65 2d 63 6f 6d | (quote |byte-com|
|000038a0| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|000038b0| 6e 64 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nd)).(de|falias '|
|000038c0| 73 65 63 6f 6e 64 20 23 | 5b 28 78 29 20 22 08 41 |second #|[(x) ".A|
|000038d0| 40 87 22 20 5b 78 5d 20 | 31 20 22 5c 0a 52 65 74 |@." [x] |1 "\.Ret|
|000038e0| 75 72 6e 20 74 68 65 20 | 73 65 63 6f 6e 64 20 65 |urn the |second e|
|000038f0| 6c 65 6d 65 6e 74 20 6f | 66 20 74 68 65 20 6c 69 |lement o|f the li|
|00003900| 73 74 20 4c 49 53 54 2e | 22 5d 29 0a 28 70 75 74 |st LIST.|"]).(put|
|00003910| 20 28 71 75 6f 74 65 20 | 73 65 63 6f 6e 64 29 20 | (quote |second) |
|00003920| 28 71 75 6f 74 65 20 62 | 79 74 65 2d 6f 70 74 69 |(quote b|yte-opti|
|00003930| 6d 69 7a 65 72 29 20 28 | 71 75 6f 74 65 20 62 79 |mizer) (|quote by|
|00003940| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 69 6e 6c 69 6e |te-compi|le-inlin|
|00003950| 65 2d 65 78 70 61 6e 64 | 29 29 0a 28 64 65 66 61 |e-expand|)).(defa|
|00003960| 6c 69 61 73 20 27 74 68 | 69 72 64 20 23 5b 28 78 |lias 'th|ird #[(x|
|00003970| 29 20 22 c0 09 38 87 22 | 20 5b 32 20 78 5d 20 32 |) "..8."| [2 x] 2|
|00003980| 20 22 5c 0a 52 65 74 75 | 72 6e 20 74 68 65 20 74 | "\.Retu|rn the t|
|00003990| 68 69 72 64 20 65 6c 65 | 6d 65 6e 74 20 6f 66 20 |hird ele|ment of |
|000039a0| 74 68 65 20 6c 69 73 74 | 20 4c 49 53 54 2e 22 5d |the list| LIST."]|
|000039b0| 29 0a 28 70 75 74 20 28 | 71 75 6f 74 65 20 74 68 |).(put (|quote th|
|000039c0| 69 72 64 29 20 28 71 75 | 6f 74 65 20 62 79 74 65 |ird) (qu|ote byte|
|000039d0| 2d 6f 70 74 69 6d 69 7a | 65 72 29 20 28 71 75 6f |-optimiz|er) (quo|
|000039e0| 74 65 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |te byte-|compile-|
|000039f0| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 29 29 0a |inline-e|xpand)).|
|00003a00| 28 64 65 66 61 6c 69 61 | 73 20 27 66 6f 75 72 74 |(defalia|s 'fourt|
|00003a10| 68 20 23 5b 28 78 29 20 | 22 c0 09 38 87 22 20 5b |h #[(x) |"..8." [|
|00003a20| 33 20 78 5d 20 32 20 22 | 5c 0a 52 65 74 75 72 6e |3 x] 2 "|\.Return|
|00003a30| 20 74 68 65 20 66 6f 75 | 72 74 68 20 65 6c 65 6d | the fou|rth elem|
|00003a40| 65 6e 74 20 6f 66 20 74 | 68 65 20 6c 69 73 74 20 |ent of t|he list |
|00003a50| 4c 49 53 54 2e 22 5d 29 | 0a 28 70 75 74 20 28 71 |LIST."])|.(put (q|
|00003a60| 75 6f 74 65 20 66 6f 75 | 72 74 68 29 20 28 71 75 |uote fou|rth) (qu|
|00003a70| 6f 74 65 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ote byte|-optimiz|
|00003a80| 65 72 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |er) (quo|te byte-|
|00003a90| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|00003aa0| 78 70 61 6e 64 29 29 0a | 28 64 65 66 61 6c 69 61 |xpand)).|(defalia|
|00003ab0| 73 20 27 66 69 66 74 68 | 20 23 5b 28 78 29 20 22 |s 'fifth| #[(x) "|
|00003ac0| c0 09 38 87 22 20 5b 34 | 20 78 5d 20 32 20 22 5c |..8." [4| x] 2 "\|
|00003ad0| 0a 52 65 74 75 72 6e 20 | 74 68 65 20 66 69 66 74 |.Return |the fift|
|00003ae0| 68 20 65 6c 65 6d 65 6e | 74 20 6f 66 20 74 68 65 |h elemen|t of the|
|00003af0| 20 6c 69 73 74 20 4c 49 | 53 54 2e 22 5d 29 0a 28 | list LI|ST."]).(|
|00003b00| 70 75 74 20 28 71 75 6f | 74 65 20 66 69 66 74 68 |put (quo|te fifth|
|00003b10| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 6f 70 |) (quote| byte-op|
|00003b20| 74 69 6d 69 7a 65 72 29 | 20 28 71 75 6f 74 65 20 |timizer)| (quote |
|00003b30| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|00003b40| 69 6e 65 2d 65 78 70 61 | 6e 64 29 29 0a 28 64 65 |ine-expa|nd)).(de|
|00003b50| 66 61 6c 69 61 73 20 27 | 73 69 78 74 68 20 23 5b |falias '|sixth #[|
|00003b60| 28 78 29 20 22 c0 09 38 | 87 22 20 5b 35 20 78 5d |(x) "..8|." [5 x]|
|00003b70| 20 32 20 22 5c 0a 52 65 | 74 75 72 6e 20 74 68 65 | 2 "\.Re|turn the|
|00003b80| 20 73 69 78 74 68 20 65 | 6c 65 6d 65 6e 74 20 6f | sixth e|lement o|
|00003b90| 66 20 74 68 65 20 6c 69 | 73 74 20 4c 49 53 54 2e |f the li|st LIST.|
|00003ba0| 22 5d 29 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |"]).(put| (quote |
|00003bb0| 73 69 78 74 68 29 20 28 | 71 75 6f 74 65 20 62 79 |sixth) (|quote by|
|00003bc0| 74 65 2d 6f 70 74 69 6d | 69 7a 65 72 29 20 28 71 |te-optim|izer) (q|
|00003bd0| 75 6f 74 65 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |uote byt|e-compil|
|00003be0| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 29 |e-inline|-expand)|
|00003bf0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 65 76 |).(defal|ias 'sev|
|00003c00| 65 6e 74 68 20 23 5b 28 | 78 29 20 22 c0 09 38 87 |enth #[(|x) "..8.|
|00003c10| 22 20 5b 36 20 78 5d 20 | 32 20 22 5c 0a 52 65 74 |" [6 x] |2 "\.Ret|
|00003c20| 75 72 6e 20 74 68 65 20 | 73 65 76 65 6e 74 68 20 |urn the |seventh |
|00003c30| 65 6c 65 6d 65 6e 74 20 | 6f 66 20 74 68 65 20 6c |element |of the l|
|00003c40| 69 73 74 20 4c 49 53 54 | 2e 22 5d 29 0a 28 70 75 |ist LIST|."]).(pu|
|00003c50| 74 20 28 71 75 6f 74 65 | 20 73 65 76 65 6e 74 68 |t (quote| seventh|
|00003c60| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 6f 70 |) (quote| byte-op|
|00003c70| 74 69 6d 69 7a 65 72 29 | 20 28 71 75 6f 74 65 20 |timizer)| (quote |
|00003c80| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|00003c90| 69 6e 65 2d 65 78 70 61 | 6e 64 29 29 0a 28 64 65 |ine-expa|nd)).(de|
|00003ca0| 66 61 6c 69 61 73 20 27 | 65 69 67 68 74 68 20 23 |falias '|eighth #|
|00003cb0| 5b 28 78 29 20 22 c0 09 | 38 87 22 20 5b 37 20 78 |[(x) "..|8." [7 x|
|00003cc0| 5d 20 32 20 22 5c 0a 52 | 65 74 75 72 6e 20 74 68 |] 2 "\.R|eturn th|
|00003cd0| 65 20 65 69 67 68 74 68 | 20 65 6c 65 6d 65 6e 74 |e eighth| element|
|00003ce0| 20 6f 66 20 74 68 65 20 | 6c 69 73 74 20 4c 49 53 | of the |list LIS|
|00003cf0| 54 2e 22 5d 29 0a 28 70 | 75 74 20 28 71 75 6f 74 |T."]).(p|ut (quot|
|00003d00| 65 20 65 69 67 68 74 68 | 29 20 28 71 75 6f 74 65 |e eighth|) (quote|
|00003d10| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 29 | byte-op|timizer)|
|00003d20| 20 28 71 75 6f 74 65 20 | 62 79 74 65 2d 63 6f 6d | (quote |byte-com|
|00003d30| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00003d40| 6e 64 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nd)).(de|falias '|
|00003d50| 6e 69 6e 74 68 20 23 5b | 28 78 29 20 22 c0 09 38 |ninth #[|(x) "..8|
|00003d60| 87 22 20 5b 38 20 78 5d | 20 32 20 22 5c 0a 52 65 |." [8 x]| 2 "\.Re|
|00003d70| 74 75 72 6e 20 74 68 65 | 20 6e 69 6e 74 68 20 65 |turn the| ninth e|
|00003d80| 6c 65 6d 65 6e 74 20 6f | 66 20 74 68 65 20 6c 69 |lement o|f the li|
|00003d90| 73 74 20 4c 49 53 54 2e | 22 5d 29 0a 28 70 75 74 |st LIST.|"]).(put|
|00003da0| 20 28 71 75 6f 74 65 20 | 6e 69 6e 74 68 29 20 28 | (quote |ninth) (|
|00003db0| 71 75 6f 74 65 20 62 79 | 74 65 2d 6f 70 74 69 6d |quote by|te-optim|
|00003dc0| 69 7a 65 72 29 20 28 71 | 75 6f 74 65 20 62 79 74 |izer) (q|uote byt|
|00003dd0| 65 2d 63 6f 6d 70 69 6c | 65 2d 69 6e 6c 69 6e 65 |e-compil|e-inline|
|00003de0| 2d 65 78 70 61 6e 64 29 | 29 0a 28 64 65 66 61 6c |-expand)|).(defal|
|00003df0| 69 61 73 20 27 74 65 6e | 74 68 20 23 5b 28 78 29 |ias 'ten|th #[(x)|
|00003e00| 20 22 c0 09 38 87 22 20 | 5b 39 20 78 5d 20 32 20 | "..8." |[9 x] 2 |
|00003e10| 22 5c 0a 52 65 74 75 72 | 6e 20 74 68 65 20 74 65 |"\.Retur|n the te|
|00003e20| 6e 74 68 20 65 6c 65 6d | 65 6e 74 20 6f 66 20 74 |nth elem|ent of t|
|00003e30| 68 65 20 6c 69 73 74 20 | 4c 49 53 54 2e 22 5d 29 |he list |LIST."])|
|00003e40| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 74 65 6e |.(put (q|uote ten|
|00003e50| 74 68 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |th) (quo|te byte-|
|00003e60| 6f 70 74 69 6d 69 7a 65 | 72 29 20 28 71 75 6f 74 |optimize|r) (quot|
|00003e70| 65 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |e byte-c|ompile-i|
|00003e80| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 29 29 0a 28 |nline-ex|pand)).(|
|00003e90| 64 65 66 61 6c 69 61 73 | 20 27 72 65 73 74 20 23 |defalias| 'rest #|
|00003ea0| 5b 28 78 29 20 22 08 41 | 87 22 20 5b 78 5d 20 31 |[(x) ".A|." [x] 1|
|00003eb0| 20 22 5c 0a 53 79 6e 6f | 6e 79 6d 20 66 6f 72 20 | "\.Syno|nym for |
|00003ec0| 60 63 64 72 27 22 5d 29 | 0a 28 70 75 74 20 28 71 |`cdr'"])|.(put (q|
|00003ed0| 75 6f 74 65 20 72 65 73 | 74 29 20 28 71 75 6f 74 |uote res|t) (quot|
|00003ee0| 65 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 72 |e byte-o|ptimizer|
|00003ef0| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 63 6f |) (quote| byte-co|
|00003f00| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00003f10| 61 6e 64 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |and)).(d|efalias |
|00003f20| 27 65 6e 64 70 20 23 5b | 28 78 29 20 22 08 3c 83 |'endp #[|(x) ".<.|
|00003f30| 08 00 08 3f 87 c1 c2 c3 | 08 21 5c 22 87 22 20 5b |...?....|.!\"." [|
|00003f40| 78 20 65 72 72 6f 72 20 | 22 65 6e 64 70 20 72 65 |x error |"endp re|
|00003f50| 63 65 69 76 65 64 20 61 | 20 6e 6f 6e 2d 63 6f 6e |ceived a| non-con|
|00003f60| 73 2c 20 6e 6f 6e 2d 6e | 75 6c 6c 20 61 72 67 75 |s, non-n|ull argu|
|00003f70| 6d 65 6e 74 20 60 25 73 | 27 22 20 70 72 69 6e 31 |ment `%s|'" prin1|
|00003f80| 2d 74 6f 2d 73 74 72 69 | 6e 67 5d 20 34 20 22 5c |-to-stri|ng] 4 "\|
|00003f90| 0a 74 20 69 66 20 58 20 | 69 73 20 6e 69 6c 2c 20 |.t if X |is nil, |
|00003fa0| 6e 69 6c 20 69 66 20 58 | 20 69 73 20 61 20 63 6f |nil if X| is a co|
|00003fb0| 6e 73 3b 20 65 72 72 6f | 72 20 6f 74 68 65 72 77 |ns; erro|r otherw|
|00003fc0| 69 73 65 2e 22 5d 29 0a | 28 70 75 74 20 28 71 75 |ise."]).|(put (qu|
|00003fd0| 6f 74 65 20 65 6e 64 70 | 29 20 28 71 75 6f 74 65 |ote endp|) (quote|
|00003fe0| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 29 | byte-op|timizer)|
|00003ff0| 20 28 71 75 6f 74 65 20 | 62 79 74 65 2d 63 6f 6d | (quote |byte-com|
|00004000| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00004010| 6e 64 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nd)).(de|falias '|
|00004020| 6c 61 73 74 20 23 5b 28 | 78 29 20 22 08 3c 84 09 |last #[(|x) ".<..|
|00004030| 00 c1 c2 21 88 08 89 41 | 1b 1c 0b 89 18 3c 83 1a |...!...A|.....<..|
|00004040| 00 08 3f 82 20 00 c1 c5 | c6 08 21 5c 22 29 84 2d |..?. ...|..!\").-|
|00004050| 00 0c 41 0b 41 13 14 82 | 0e 00 0c 2a 87 22 20 5b |..A.A...|...*." [|
|00004060| 78 20 65 72 72 6f 72 20 | 22 61 72 67 20 74 6f 20 |x error |"arg to |
|00004070| 60 6c 61 73 74 27 20 6d | 75 73 74 20 62 65 20 61 |`last' m|ust be a|
|00004080| 20 6c 69 73 74 22 20 6e | 65 78 74 2d 63 6f 6e 73 | list" n|ext-cons|
|00004090| 20 63 75 72 72 65 6e 74 | 2d 63 6f 6e 73 20 22 65 | current|-cons "e|
|000040a0| 6e 64 70 20 72 65 63 65 | 69 76 65 64 20 61 20 6e |ndp rece|ived a n|
|000040b0| 6f 6e 2d 63 6f 6e 73 2c | 20 6e 6f 6e 2d 6e 75 6c |on-cons,| non-nul|
|000040c0| 6c 20 61 72 67 75 6d 65 | 6e 74 20 60 25 73 27 22 |l argume|nt `%s'"|
|000040d0| 20 70 72 69 6e 31 2d 74 | 6f 2d 73 74 72 69 6e 67 | prin1-t|o-string|
|000040e0| 5d 20 35 20 22 5c 0a 52 | 65 74 75 72 6e 73 20 74 |] 5 "\.R|eturns t|
|000040f0| 68 65 20 6c 61 73 74 20 | 6c 69 6e 6b 20 69 6e 20 |he last |link in |
|00004100| 74 68 65 20 6c 69 73 74 | 20 4c 49 53 54 2e 22 5d |the list| LIST."]|
|00004110| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6c 69 73 |).(defal|ias 'lis|
|00004120| 74 2d 6c 65 6e 67 74 68 | 20 23 5b 28 78 29 20 22 |t-length| #[(x) "|
|00004130| c0 09 89 c2 1b 1c 1d 1e | 06 0b 84 73 00 0d 89 19 |........|...s....|
|00004140| 3c 83 19 00 09 3f 82 1f | 00 c7 c8 c9 09 21 5c 22 |<....?..|.....!\"|
|00004150| 29 83 28 00 ca 13 82 65 | 00 0d 41 89 19 3c 83 35 |).(....e|..A..<.5|
|00004160| 00 09 3f 82 3b 00 c7 c8 | c9 09 21 5c 22 29 83 4a |..?.;...|..!\").J|
|00004170| 00 0e 06 cb 5c 5c 16 06 | ca 13 82 65 00 0d 0c 3d |....\\..|...e...=|
|00004180| 83 5f 00 0e 06 c0 56 83 | 5f 00 c2 16 06 ca 13 82 |._....V.|_.......|
|00004190| 65 00 0e 06 cc 5c 5c 16 | 06 0d 89 1e 0d 41 41 29 |e....\\.|.....AA)|
|000041a0| 0c 41 14 15 82 09 00 0e | 06 2c 87 22 20 5b 30 20 |.A......|.,." [0 |
|000041b0| 78 20 6e 69 6c 20 72 65 | 61 64 79 20 73 6c 6f 77 |x nil re|ady slow|
|000041c0| 20 66 61 73 74 20 6e 20 | 65 72 72 6f 72 20 22 65 | fast n |error "e|
|000041d0| 6e 64 70 20 72 65 63 65 | 69 76 65 64 20 61 20 6e |ndp rece|ived a n|
|000041e0| 6f 6e 2d 63 6f 6e 73 2c | 20 6e 6f 6e 2d 6e 75 6c |on-cons,| non-nul|
|000041f0| 6c 20 61 72 67 75 6d 65 | 6e 74 20 60 25 73 27 22 |l argume|nt `%s'"|
|00004200| 20 70 72 69 6e 31 2d 74 | 6f 2d 73 74 72 69 6e 67 | prin1-t|o-string|
|00004210| 20 74 20 31 20 32 20 58 | 5d 20 35 20 22 5c 0a 52 | t 1 2 X|] 5 "\.R|
|00004220| 65 74 75 72 6e 73 20 74 | 68 65 20 6c 65 6e 67 74 |eturns t|he lengt|
|00004230| 68 20 6f 66 20 61 20 6e | 6f 6e 2d 63 69 72 63 75 |h of a n|on-circu|
|00004240| 6c 61 72 20 6c 69 73 74 | 2c 20 6f 72 20 60 6e 69 |lar list|, or `ni|
|00004250| 6c 27 20 66 6f 72 20 61 | 20 63 69 72 63 75 6c 61 |l' for a| circula|
|00004260| 72 20 6f 6e 65 2e 22 5d | 29 0a 28 64 65 66 61 6c |r one."]|).(defal|
|00004270| 69 61 73 20 27 62 75 74 | 6c 61 73 74 20 23 5b 28 |ias 'but|last #[(|
|00004280| 6c 69 73 74 20 26 6f 70 | 74 69 6f 6e 61 6c 20 6e |list &op|tional n|
|00004290| 29 20 22 08 84 06 00 c1 | 10 08 c2 0b 21 9b 9f 87 |) ".....|....!...|
|000042a0| 22 20 5b 6e 20 31 20 72 | 65 76 65 72 73 65 20 6c |" [n 1 r|everse l|
|000042b0| 69 73 74 5d 20 33 20 22 | 5c 0a 52 65 74 75 72 6e |ist] 3 "|\.Return|
|000042c0| 20 61 20 6e 65 77 20 6c | 69 73 74 20 6c 69 6b 65 | a new l|ist like|
|000042d0| 20 4c 49 53 54 20 62 75 | 74 20 73 61 6e 73 20 74 | LIST bu|t sans t|
|000042e0| 68 65 20 6c 61 73 74 20 | 4e 20 65 6c 65 6d 65 6e |he last |N elemen|
|000042f0| 74 73 2e 0a 4e 20 64 65 | 66 61 75 6c 74 73 20 74 |ts..N de|faults t|
|00004300| 6f 20 31 2e 20 20 49 66 | 20 74 68 65 20 6c 69 73 |o 1. If| the lis|
|00004310| 74 20 64 6f 65 73 6e 27 | 74 20 68 61 76 65 20 4e |t doesn'|t have N|
|00004320| 20 65 6c 65 6d 65 6e 74 | 73 2c 20 6e 69 6c 20 69 | element|s, nil i|
|00004330| 73 20 72 65 74 75 72 6e | 65 64 2e 22 5d 29 0a 28 |s return|ed."]).(|
|00004340| 64 65 66 61 6c 69 61 73 | 20 27 6c 69 73 74 2a 20 |defalias| 'list* |
|00004350| 23 5b 28 61 72 67 20 26 | 72 65 73 74 20 6f 74 68 |#[(arg &|rest oth|
|00004360| 65 72 73 29 20 22 08 84 | 06 00 09 87 09 c2 08 21 |ers) "..|.......!|
|00004370| 42 89 18 89 1b 41 41 83 | 1b 00 0b 41 89 13 82 0f |B....AA.|...A....|
|00004380| 00 0b 89 41 40 a1 88 08 | 2a 87 22 20 5b 6f 74 68 |...A@...|*." [oth|
|00004390| 65 72 73 20 61 72 67 20 | 63 6f 70 79 2d 73 65 71 |ers arg |copy-seq|
|000043a0| 75 65 6e 63 65 20 61 5d | 20 34 20 22 5c 0a 52 65 |uence a]| 4 "\.Re|
|000043b0| 74 75 72 6e 20 61 20 6e | 65 77 20 6c 69 73 74 20 |turn a n|ew list |
|000043c0| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 74 68 65 20 66 |containi|ng the f|
|000043d0| 69 72 73 74 20 61 72 67 | 75 6d 65 6e 74 73 20 63 |irst arg|uments c|
|000043e0| 6f 6e 73 65 64 20 6f 6e | 74 6f 20 74 68 65 20 6c |onsed on|to the l|
|000043f0| 61 73 74 20 61 72 67 2e | 0a 54 68 75 73 2c 20 28 |ast arg.|.Thus, (|
|00004400| 6c 69 73 74 2a 20 31 20 | 32 20 33 20 27 28 61 20 |list* 1 |2 3 '(a |
|00004410| 62 29 29 20 72 65 74 75 | 72 6e 73 20 28 31 20 32 |b)) retu|rns (1 2|
|00004420| 20 33 20 61 20 62 29 2e | 22 5d 29 0a 28 64 65 66 | 3 a b).|"]).(def|
|00004430| 61 6c 69 61 73 20 27 61 | 64 6a 6f 69 6e 20 23 5b |alias 'a|djoin #[|
|00004440| 28 69 74 65 6d 20 6c 69 | 73 74 29 20 22 08 09 3e |(item li|st) "..>|
|00004450| 83 08 00 09 87 08 09 42 | 87 22 20 5b 69 74 65 6d |.......B|." [item|
|00004460| 20 6c 69 73 74 5d 20 32 | 20 22 5c 0a 52 65 74 75 | list] 2| "\.Retu|
|00004470| 72 6e 20 61 20 6c 69 73 | 74 20 77 68 69 63 68 20 |rn a lis|t which |
|00004480| 63 6f 6e 74 61 69 6e 73 | 20 49 54 45 4d 20 62 75 |contains| ITEM bu|
|00004490| 74 20 69 73 20 6f 74 68 | 65 72 77 69 73 65 20 6c |t is oth|erwise l|
|000044a0| 69 6b 65 20 4c 49 53 54 | 2e 0a 49 66 20 49 54 45 |ike LIST|..If ITE|
|000044b0| 4d 20 6f 63 63 75 72 73 | 20 69 6e 20 4c 49 53 54 |M occurs| in LIST|
|000044c0| 2c 20 74 68 65 20 76 61 | 6c 75 65 20 69 73 20 4c |, the va|lue is L|
|000044d0| 49 53 54 2e 20 20 4f 74 | 68 65 72 77 69 73 65 20 |IST. Ot|herwise |
|000044e0| 69 74 20 69 73 20 28 63 | 6f 6e 73 20 49 54 45 4d |it is (c|ons ITEM|
|000044f0| 20 4c 49 53 54 29 2e 0a | 57 68 65 6e 20 63 6f 6d | LIST)..|When com|
|00004500| 70 61 72 69 6e 67 20 49 | 54 45 4d 20 61 67 61 69 |paring I|TEM agai|
|00004510| 6e 73 74 20 65 6c 65 6d | 65 6e 74 73 2c 20 60 65 |nst elem|ents, `e|
|00004520| 71 6c 27 20 69 73 20 75 | 73 65 64 2e 22 5d 29 0a |ql' is u|sed."]).|
|00004530| 28 64 65 66 61 6c 69 61 | 73 20 27 6c 64 69 66 66 |(defalia|s 'ldiff|
|00004540| 20 23 5b 28 6c 69 73 74 | 20 73 75 62 6c 69 73 74 | #[(list| sublist|
|00004550| 29 20 22 c0 09 1a 1b 5c | 6e 89 1c 3c 83 10 00 0c |) "....\|n..<....|
|00004560| 3f 82 16 00 c5 c6 c7 0c | 21 5c 22 29 84 2d 00 5c |?.......|!\").-.\|
|00004570| 6e 0e 08 3d 84 2d 00 5c | 6e 40 0b 42 13 5c 6e 41 |n..=.-.\|n@.B.\nA|
|00004580| 89 12 82 05 00 c9 0b 21 | 2a 87 22 20 5b 6e 69 6c |.......!|*." [nil|
|00004590| 20 6c 69 73 74 20 63 75 | 72 63 6f 6e 73 20 72 65 | list cu|rcons re|
|000045a0| 73 75 6c 74 20 78 20 65 | 72 72 6f 72 20 22 65 6e |sult x e|rror "en|
|000045b0| 64 70 20 72 65 63 65 69 | 76 65 64 20 61 20 6e 6f |dp recei|ved a no|
|000045c0| 6e 2d 63 6f 6e 73 2c 20 | 6e 6f 6e 2d 6e 75 6c 6c |n-cons, |non-null|
|000045d0| 20 61 72 67 75 6d 65 6e | 74 20 60 25 73 27 22 20 | argumen|t `%s'" |
|000045e0| 70 72 69 6e 31 2d 74 6f | 2d 73 74 72 69 6e 67 20 |prin1-to|-string |
|000045f0| 73 75 62 6c 69 73 74 20 | 72 65 76 65 72 73 65 5d |sublist |reverse]|
|00004600| 20 35 20 22 5c 0a 52 65 | 74 75 72 6e 20 61 20 6e | 5 "\.Re|turn a n|
|00004610| 65 77 20 6c 69 73 74 20 | 6c 69 6b 65 20 4c 49 53 |ew list |like LIS|
|00004620| 54 20 62 75 74 20 73 61 | 6e 73 20 53 55 42 4c 49 |T but sa|ns SUBLI|
|00004630| 53 54 2e 0a 53 55 42 4c | 49 53 54 20 6d 75 73 74 |ST..SUBL|IST must|
|00004640| 20 62 65 20 6f 6e 65 20 | 6f 66 20 74 68 65 20 6c | be one |of the l|
|00004650| 69 6e 6b 73 20 69 6e 20 | 4c 49 53 54 3b 20 6f 74 |inks in |LIST; ot|
|00004660| 68 65 72 77 69 73 65 20 | 74 68 65 20 76 61 6c 75 |herwise |the valu|
|00004670| 65 20 69 73 20 4c 49 53 | 54 20 69 74 73 65 6c 66 |e is LIS|T itself|
|00004680| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00004690| 63 61 61 72 20 23 5b 28 | 58 29 20 22 08 40 40 87 |caar #[(|X) ".@@.|
|000046a0| 22 20 5b 58 5d 20 31 20 | 22 5c 0a 52 65 74 75 72 |" [X] 1 |"\.Retur|
|000046b0| 6e 20 74 68 65 20 63 61 | 72 20 6f 66 20 74 68 65 |n the ca|r of the|
|000046c0| 20 63 61 72 20 6f 66 20 | 58 2e 22 5d 29 0a 28 70 | car of |X."]).(p|
|000046d0| 75 74 20 28 71 75 6f 74 | 65 20 63 61 61 72 29 20 |ut (quot|e caar) |
|000046e0| 28 71 75 6f 74 65 20 62 | 79 74 65 2d 6f 70 74 69 |(quote b|yte-opti|
|000046f0| 6d 69 7a 65 72 29 20 28 | 71 75 6f 74 65 20 62 79 |mizer) (|quote by|
|00004700| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 69 6e 6c 69 6e |te-compi|le-inlin|
|00004710| 65 2d 65 78 70 61 6e 64 | 29 29 0a 28 64 65 66 61 |e-expand|)).(defa|
|00004720| 6c 69 61 73 20 27 63 61 | 64 72 20 23 5b 28 58 29 |lias 'ca|dr #[(X)|
|00004730| 20 22 08 41 40 87 22 20 | 5b 58 5d 20 31 20 22 5c | ".A@." |[X] 1 "\|
|00004740| 0a 52 65 74 75 72 6e 20 | 74 68 65 20 63 61 72 20 |.Return |the car |
|00004750| 6f 66 20 74 68 65 20 63 | 64 72 20 6f 66 20 58 2e |of the c|dr of X.|
|00004760| 22 5d 29 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |"]).(put| (quote |
|00004770| 63 61 64 72 29 20 28 71 | 75 6f 74 65 20 62 79 74 |cadr) (q|uote byt|
|00004780| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 29 20 28 71 75 |e-optimi|zer) (qu|
|00004790| 6f 74 65 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |ote byte|-compile|
|000047a0| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 29 29 |-inline-|expand))|
|000047b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 64 61 72 |.(defali|as 'cdar|
|000047c0| 20 23 5b 28 58 29 20 22 | 08 40 41 87 22 20 5b 58 | #[(X) "|.@A." [X|
|000047d0| 5d 20 31 20 22 5c 0a 52 | 65 74 75 72 6e 20 74 68 |] 1 "\.R|eturn th|
|000047e0| 65 20 63 64 72 20 6f 66 | 20 74 68 65 20 63 61 72 |e cdr of| the car|
|000047f0| 20 6f 66 20 58 2e 22 5d | 29 0a 28 70 75 74 20 28 | of X."]|).(put (|
|00004800| 71 75 6f 74 65 20 63 64 | 61 72 29 20 28 71 75 6f |quote cd|ar) (quo|
|00004810| 74 65 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |te byte-|optimize|
|00004820| 72 29 20 28 71 75 6f 74 | 65 20 62 79 74 65 2d 63 |r) (quot|e byte-c|
|00004830| 6f 6d 70 69 6c 65 2d 69 | 6e 6c 69 6e 65 2d 65 78 |ompile-i|nline-ex|
|00004840| 70 61 6e 64 29 29 0a 28 | 64 65 66 61 6c 69 61 73 |pand)).(|defalias|
|00004850| 20 27 63 64 64 72 20 23 | 5b 28 58 29 20 22 08 41 | 'cddr #|[(X) ".A|
|00004860| 41 87 22 20 5b 58 5d 20 | 31 20 22 5c 0a 52 65 74 |A." [X] |1 "\.Ret|
|00004870| 75 72 6e 20 74 68 65 20 | 63 64 72 20 6f 66 20 74 |urn the |cdr of t|
|00004880| 68 65 20 63 64 72 20 6f | 66 20 58 2e 22 5d 29 0a |he cdr o|f X."]).|
|00004890| 28 70 75 74 20 28 71 75 | 6f 74 65 20 63 64 64 72 |(put (qu|ote cddr|
|000048a0| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 6f 70 |) (quote| byte-op|
|000048b0| 74 69 6d 69 7a 65 72 29 | 20 28 71 75 6f 74 65 20 |timizer)| (quote |
|000048c0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|000048d0| 69 6e 65 2d 65 78 70 61 | 6e 64 29 29 0a 28 64 65 |ine-expa|nd)).(de|
|000048e0| 66 61 6c 69 61 73 20 27 | 63 61 61 61 72 20 23 5b |falias '|caaar #[|
|000048f0| 28 58 29 20 22 08 40 40 | 40 87 22 20 5b 58 5d 20 |(X) ".@@|@." [X] |
|00004900| 31 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |1 "\.Ret|urn the |
|00004910| 63 61 72 20 6f 66 20 74 | 68 65 20 63 61 72 20 6f |car of t|he car o|
|00004920| 66 20 74 68 65 20 63 61 | 72 20 6f 66 20 58 2e 22 |f the ca|r of X."|
|00004930| 5d 29 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 63 |]).(put |(quote c|
|00004940| 61 61 61 72 29 20 28 71 | 75 6f 74 65 20 62 79 74 |aaar) (q|uote byt|
|00004950| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 29 20 28 71 75 |e-optimi|zer) (qu|
|00004960| 6f 74 65 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |ote byte|-compile|
|00004970| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 29 29 |-inline-|expand))|
|00004980| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 61 61 64 |.(defali|as 'caad|
|00004990| 72 20 23 5b 28 58 29 20 | 22 08 41 40 40 87 22 20 |r #[(X) |".A@@." |
|000049a0| 5b 58 5d 20 31 20 22 5c | 0a 52 65 74 75 72 6e 20 |[X] 1 "\|.Return |
|000049b0| 74 68 65 20 63 61 72 20 | 6f 66 20 74 68 65 20 63 |the car |of the c|
|000049c0| 61 72 20 6f 66 20 74 68 | 65 20 63 64 72 20 6f 66 |ar of th|e cdr of|
|000049d0| 20 58 2e 22 5d 29 0a 28 | 70 75 74 20 28 71 75 6f | X."]).(|put (quo|
|000049e0| 74 65 20 63 61 61 64 72 | 29 20 28 71 75 6f 74 65 |te caadr|) (quote|
|000049f0| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 29 | byte-op|timizer)|
|00004a00| 20 28 71 75 6f 74 65 20 | 62 79 74 65 2d 63 6f 6d | (quote |byte-com|
|00004a10| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00004a20| 6e 64 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nd)).(de|falias '|
|00004a30| 63 61 64 61 72 20 23 5b | 28 58 29 20 22 08 40 41 |cadar #[|(X) ".@A|
|00004a40| 40 87 22 20 5b 58 5d 20 | 31 20 22 5c 0a 52 65 74 |@." [X] |1 "\.Ret|
|00004a50| 75 72 6e 20 74 68 65 20 | 63 61 72 20 6f 66 20 74 |urn the |car of t|
|00004a60| 68 65 20 63 64 72 20 6f | 66 20 74 68 65 20 63 61 |he cdr o|f the ca|
|00004a70| 72 20 6f 66 20 58 2e 22 | 5d 29 0a 28 70 75 74 20 |r of X."|]).(put |
|00004a80| 28 71 75 6f 74 65 20 63 | 61 64 61 72 29 20 28 71 |(quote c|adar) (q|
|00004a90| 75 6f 74 65 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |uote byt|e-optimi|
|00004aa0| 7a 65 72 29 20 28 71 75 | 6f 74 65 20 62 79 74 65 |zer) (qu|ote byte|
|00004ab0| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 6c 69 6e 65 2d |-compile|-inline-|
|00004ac0| 65 78 70 61 6e 64 29 29 | 0a 28 64 65 66 61 6c 69 |expand))|.(defali|
|00004ad0| 61 73 20 27 63 64 61 61 | 72 20 23 5b 28 58 29 20 |as 'cdaa|r #[(X) |
|00004ae0| 22 08 40 40 41 87 22 20 | 5b 58 5d 20 31 20 22 5c |".@@A." |[X] 1 "\|
|00004af0| 0a 52 65 74 75 72 6e 20 | 74 68 65 20 63 64 72 20 |.Return |the cdr |
|00004b00| 6f 66 20 74 68 65 20 63 | 61 72 20 6f 66 20 74 68 |of the c|ar of th|
|00004b10| 65 20 63 61 72 20 6f 66 | 20 58 2e 22 5d 29 0a 28 |e car of| X."]).(|
|00004b20| 70 75 74 20 28 71 75 6f | 74 65 20 63 64 61 61 72 |put (quo|te cdaar|
|00004b30| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 6f 70 |) (quote| byte-op|
|00004b40| 74 69 6d 69 7a 65 72 29 | 20 28 71 75 6f 74 65 20 |timizer)| (quote |
|00004b50| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|00004b60| 69 6e 65 2d 65 78 70 61 | 6e 64 29 29 0a 28 64 65 |ine-expa|nd)).(de|
|00004b70| 66 61 6c 69 61 73 20 27 | 63 61 64 64 72 20 23 5b |falias '|caddr #[|
|00004b80| 28 58 29 20 22 08 41 41 | 40 87 22 20 5b 58 5d 20 |(X) ".AA|@." [X] |
|00004b90| 31 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |1 "\.Ret|urn the |
|00004ba0| 63 61 72 20 6f 66 20 74 | 68 65 20 63 64 72 20 6f |car of t|he cdr o|
|00004bb0| 66 20 74 68 65 20 63 64 | 72 20 6f 66 20 58 2e 22 |f the cd|r of X."|
|00004bc0| 5d 29 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 63 |]).(put |(quote c|
|00004bd0| 61 64 64 72 29 20 28 71 | 75 6f 74 65 20 62 79 74 |addr) (q|uote byt|
|00004be0| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 29 20 28 71 75 |e-optimi|zer) (qu|
|00004bf0| 6f 74 65 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |ote byte|-compile|
|00004c00| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 29 29 |-inline-|expand))|
|00004c10| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 64 61 64 |.(defali|as 'cdad|
|00004c20| 72 20 23 5b 28 58 29 20 | 22 08 41 40 41 87 22 20 |r #[(X) |".A@A." |
|00004c30| 5b 58 5d 20 31 20 22 5c | 0a 52 65 74 75 72 6e 20 |[X] 1 "\|.Return |
|00004c40| 74 68 65 20 63 64 72 20 | 6f 66 20 74 68 65 20 63 |the cdr |of the c|
|00004c50| 61 72 20 6f 66 20 74 68 | 65 20 63 64 72 20 6f 66 |ar of th|e cdr of|
|00004c60| 20 58 2e 22 5d 29 0a 28 | 70 75 74 20 28 71 75 6f | X."]).(|put (quo|
|00004c70| 74 65 20 63 64 61 64 72 | 29 20 28 71 75 6f 74 65 |te cdadr|) (quote|
|00004c80| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 29 | byte-op|timizer)|
|00004c90| 20 28 71 75 6f 74 65 20 | 62 79 74 65 2d 63 6f 6d | (quote |byte-com|
|00004ca0| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00004cb0| 6e 64 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nd)).(de|falias '|
|00004cc0| 63 64 64 61 72 20 23 5b | 28 58 29 20 22 08 40 41 |cddar #[|(X) ".@A|
|00004cd0| 41 87 22 20 5b 58 5d 20 | 31 20 22 5c 0a 52 65 74 |A." [X] |1 "\.Ret|
|00004ce0| 75 72 6e 20 74 68 65 20 | 63 64 72 20 6f 66 20 74 |urn the |cdr of t|
|00004cf0| 68 65 20 63 64 72 20 6f | 66 20 74 68 65 20 63 61 |he cdr o|f the ca|
|00004d00| 72 20 6f 66 20 58 2e 22 | 5d 29 0a 28 70 75 74 20 |r of X."|]).(put |
|00004d10| 28 71 75 6f 74 65 20 63 | 64 64 61 72 29 20 28 71 |(quote c|ddar) (q|
|00004d20| 75 6f 74 65 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |uote byt|e-optimi|
|00004d30| 7a 65 72 29 20 28 71 75 | 6f 74 65 20 62 79 74 65 |zer) (qu|ote byte|
|00004d40| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 6c 69 6e 65 2d |-compile|-inline-|
|00004d50| 65 78 70 61 6e 64 29 29 | 0a 28 64 65 66 61 6c 69 |expand))|.(defali|
|00004d60| 61 73 20 27 63 64 64 64 | 72 20 23 5b 28 58 29 20 |as 'cddd|r #[(X) |
|00004d70| 22 08 41 41 41 87 22 20 | 5b 58 5d 20 31 20 22 5c |".AAA." |[X] 1 "\|
|00004d80| 0a 52 65 74 75 72 6e 20 | 74 68 65 20 63 64 72 20 |.Return |the cdr |
|00004d90| 6f 66 20 74 68 65 20 63 | 64 72 20 6f 66 20 74 68 |of the c|dr of th|
|00004da0| 65 20 63 64 72 20 6f 66 | 20 58 2e 22 5d 29 0a 28 |e cdr of| X."]).(|
|00004db0| 70 75 74 20 28 71 75 6f | 74 65 20 63 64 64 64 72 |put (quo|te cdddr|
|00004dc0| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 6f 70 |) (quote| byte-op|
|00004dd0| 74 69 6d 69 7a 65 72 29 | 20 28 71 75 6f 74 65 20 |timizer)| (quote |
|00004de0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|00004df0| 69 6e 65 2d 65 78 70 61 | 6e 64 29 29 0a 28 64 65 |ine-expa|nd)).(de|
|00004e00| 66 61 6c 69 61 73 20 27 | 63 61 61 61 61 72 20 23 |falias '|caaaar #|
|00004e10| 5b 28 58 29 20 22 08 40 | 40 40 40 87 22 20 5b 58 |[(X) ".@|@@@." [X|
|00004e20| 5d 20 31 20 22 5c 0a 52 | 65 74 75 72 6e 20 74 68 |] 1 "\.R|eturn th|
|00004e30| 65 20 63 61 72 20 6f 66 | 20 74 68 65 20 63 61 72 |e car of| the car|
|00004e40| 20 6f 66 20 74 68 65 20 | 63 61 72 20 6f 66 20 74 | of the |car of t|
|00004e50| 68 65 20 63 61 72 20 6f | 66 20 58 2e 22 5d 29 0a |he car o|f X."]).|
|00004e60| 28 70 75 74 20 28 71 75 | 6f 74 65 20 63 61 61 61 |(put (qu|ote caaa|
|00004e70| 61 72 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |ar) (quo|te byte-|
|00004e80| 6f 70 74 69 6d 69 7a 65 | 72 29 20 28 71 75 6f 74 |optimize|r) (quot|
|00004e90| 65 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |e byte-c|ompile-i|
|00004ea0| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 29 29 0a 28 |nline-ex|pand)).(|
|00004eb0| 64 65 66 61 6c 69 61 73 | 20 27 63 61 61 61 64 72 |defalias| 'caaadr|
|00004ec0| 20 23 5b 28 58 29 20 22 | 08 41 40 40 40 87 22 20 | #[(X) "|.A@@@." |
|00004ed0| 5b 58 5d 20 31 20 22 5c | 0a 52 65 74 75 72 6e 20 |[X] 1 "\|.Return |
|00004ee0| 74 68 65 20 63 61 72 20 | 6f 66 20 74 68 65 20 63 |the car |of the c|
|00004ef0| 61 72 20 6f 66 20 74 68 | 65 20 63 61 72 20 6f 66 |ar of th|e car of|
|00004f00| 20 74 68 65 20 63 64 72 | 20 6f 66 20 58 2e 22 5d | the cdr| of X."]|
|00004f10| 29 0a 28 70 75 74 20 28 | 71 75 6f 74 65 20 63 61 |).(put (|quote ca|
|00004f20| 61 61 64 72 29 20 28 71 | 75 6f 74 65 20 62 79 74 |aadr) (q|uote byt|
|00004f30| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 29 20 28 71 75 |e-optimi|zer) (qu|
|00004f40| 6f 74 65 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |ote byte|-compile|
|00004f50| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 29 29 |-inline-|expand))|
|00004f60| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 61 61 64 |.(defali|as 'caad|
|00004f70| 61 72 20 23 5b 28 58 29 | 20 22 08 40 41 40 40 87 |ar #[(X)| ".@A@@.|
|00004f80| 22 20 5b 58 5d 20 31 20 | 22 5c 0a 52 65 74 75 72 |" [X] 1 |"\.Retur|
|00004f90| 6e 20 74 68 65 20 63 61 | 72 20 6f 66 20 74 68 65 |n the ca|r of the|
|00004fa0| 20 63 61 72 20 6f 66 20 | 74 68 65 20 63 64 72 20 | car of |the cdr |
|00004fb0| 6f 66 20 74 68 65 20 63 | 61 72 20 6f 66 20 58 2e |of the c|ar of X.|
|00004fc0| 22 5d 29 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |"]).(put| (quote |
|00004fd0| 63 61 61 64 61 72 29 20 | 28 71 75 6f 74 65 20 62 |caadar) |(quote b|
|00004fe0| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 29 20 28 |yte-opti|mizer) (|
|00004ff0| 71 75 6f 74 65 20 62 79 | 74 65 2d 63 6f 6d 70 69 |quote by|te-compi|
|00005000| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00005010| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 61 |)).(defa|lias 'ca|
|00005020| 64 61 61 72 20 23 5b 28 | 58 29 20 22 08 40 40 41 |daar #[(|X) ".@@A|
|00005030| 40 87 22 20 5b 58 5d 20 | 31 20 22 5c 0a 52 65 74 |@." [X] |1 "\.Ret|
|00005040| 75 72 6e 20 74 68 65 20 | 63 61 72 20 6f 66 20 74 |urn the |car of t|
|00005050| 68 65 20 63 64 72 20 6f | 66 20 74 68 65 20 63 61 |he cdr o|f the ca|
|00005060| 72 20 6f 66 20 74 68 65 | 20 63 61 72 20 6f 66 20 |r of the| car of |
|00005070| 58 2e 22 5d 29 0a 28 70 | 75 74 20 28 71 75 6f 74 |X."]).(p|ut (quot|
|00005080| 65 20 63 61 64 61 61 72 | 29 20 28 71 75 6f 74 65 |e cadaar|) (quote|
|00005090| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 29 | byte-op|timizer)|
|000050a0| 20 28 71 75 6f 74 65 20 | 62 79 74 65 2d 63 6f 6d | (quote |byte-com|
|000050b0| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|000050c0| 6e 64 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nd)).(de|falias '|
|000050d0| 63 64 61 61 61 72 20 23 | 5b 28 58 29 20 22 08 40 |cdaaar #|[(X) ".@|
|000050e0| 40 40 41 87 22 20 5b 58 | 5d 20 31 20 22 5c 0a 52 |@@A." [X|] 1 "\.R|
|000050f0| 65 74 75 72 6e 20 74 68 | 65 20 63 64 72 20 6f 66 |eturn th|e cdr of|
|00005100| 20 74 68 65 20 63 61 72 | 20 6f 66 20 74 68 65 20 | the car| of the |
|00005110| 63 61 72 20 6f 66 20 74 | 68 65 20 63 61 72 20 6f |car of t|he car o|
|00005120| 66 20 58 2e 22 5d 29 0a | 28 70 75 74 20 28 71 75 |f X."]).|(put (qu|
|00005130| 6f 74 65 20 63 64 61 61 | 61 72 29 20 28 71 75 6f |ote cdaa|ar) (quo|
|00005140| 74 65 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |te byte-|optimize|
|00005150| 72 29 20 28 71 75 6f 74 | 65 20 62 79 74 65 2d 63 |r) (quot|e byte-c|
|00005160| 6f 6d 70 69 6c 65 2d 69 | 6e 6c 69 6e 65 2d 65 78 |ompile-i|nline-ex|
|00005170| 70 61 6e 64 29 29 0a 28 | 64 65 66 61 6c 69 61 73 |pand)).(|defalias|
|00005180| 20 27 63 61 61 64 64 72 | 20 23 5b 28 58 29 20 22 | 'caaddr| #[(X) "|
|00005190| 08 41 41 40 40 87 22 20 | 5b 58 5d 20 31 20 22 5c |.AA@@." |[X] 1 "\|
|000051a0| 0a 52 65 74 75 72 6e 20 | 74 68 65 20 63 61 72 20 |.Return |the car |
|000051b0| 6f 66 20 74 68 65 20 63 | 61 72 20 6f 66 20 74 68 |of the c|ar of th|
|000051c0| 65 20 63 64 72 20 6f 66 | 20 74 68 65 20 63 64 72 |e cdr of| the cdr|
|000051d0| 20 6f 66 20 58 2e 22 5d | 29 0a 28 70 75 74 20 28 | of X."]|).(put (|
|000051e0| 71 75 6f 74 65 20 63 61 | 61 64 64 72 29 20 28 71 |quote ca|addr) (q|
|000051f0| 75 6f 74 65 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |uote byt|e-optimi|
|00005200| 7a 65 72 29 20 28 71 75 | 6f 74 65 20 62 79 74 65 |zer) (qu|ote byte|
|00005210| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 6c 69 6e 65 2d |-compile|-inline-|
|00005220| 65 78 70 61 6e 64 29 29 | 0a 28 64 65 66 61 6c 69 |expand))|.(defali|
|00005230| 61 73 20 27 63 61 64 61 | 64 72 20 23 5b 28 58 29 |as 'cada|dr #[(X)|
|00005240| 20 22 08 41 40 41 40 87 | 22 20 5b 58 5d 20 31 20 | ".A@A@.|" [X] 1 |
|00005250| 22 5c 0a 52 65 74 75 72 | 6e 20 74 68 65 20 63 61 |"\.Retur|n the ca|
|00005260| 72 20 6f 66 20 74 68 65 | 20 63 64 72 20 6f 66 20 |r of the| cdr of |
|00005270| 74 68 65 20 63 61 72 20 | 6f 66 20 74 68 65 20 63 |the car |of the c|
|00005280| 64 72 20 6f 66 20 58 2e | 22 5d 29 0a 28 70 75 74 |dr of X.|"]).(put|
|00005290| 20 28 71 75 6f 74 65 20 | 63 61 64 61 64 72 29 20 | (quote |cadadr) |
|000052a0| 28 71 75 6f 74 65 20 62 | 79 74 65 2d 6f 70 74 69 |(quote b|yte-opti|
|000052b0| 6d 69 7a 65 72 29 20 28 | 71 75 6f 74 65 20 62 79 |mizer) (|quote by|
|000052c0| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 69 6e 6c 69 6e |te-compi|le-inlin|
|000052d0| 65 2d 65 78 70 61 6e 64 | 29 29 0a 28 64 65 66 61 |e-expand|)).(defa|
|000052e0| 6c 69 61 73 20 27 63 64 | 61 61 64 72 20 23 5b 28 |lias 'cd|aadr #[(|
|000052f0| 58 29 20 22 08 41 40 40 | 41 87 22 20 5b 58 5d 20 |X) ".A@@|A." [X] |
|00005300| 31 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |1 "\.Ret|urn the |
|00005310| 63 64 72 20 6f 66 20 74 | 68 65 20 63 61 72 20 6f |cdr of t|he car o|
|00005320| 66 20 74 68 65 20 63 61 | 72 20 6f 66 20 74 68 65 |f the ca|r of the|
|00005330| 20 63 64 72 20 6f 66 20 | 58 2e 22 5d 29 0a 28 70 | cdr of |X."]).(p|
|00005340| 75 74 20 28 71 75 6f 74 | 65 20 63 64 61 61 64 72 |ut (quot|e cdaadr|
|00005350| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 6f 70 |) (quote| byte-op|
|00005360| 74 69 6d 69 7a 65 72 29 | 20 28 71 75 6f 74 65 20 |timizer)| (quote |
|00005370| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|00005380| 69 6e 65 2d 65 78 70 61 | 6e 64 29 29 0a 28 64 65 |ine-expa|nd)).(de|
|00005390| 66 61 6c 69 61 73 20 27 | 63 61 64 64 61 72 20 23 |falias '|caddar #|
|000053a0| 5b 28 58 29 20 22 08 40 | 41 41 40 87 22 20 5b 58 |[(X) ".@|AA@." [X|
|000053b0| 5d 20 31 20 22 5c 0a 52 | 65 74 75 72 6e 20 74 68 |] 1 "\.R|eturn th|
|000053c0| 65 20 63 61 72 20 6f 66 | 20 74 68 65 20 63 64 72 |e car of| the cdr|
|000053d0| 20 6f 66 20 74 68 65 20 | 63 64 72 20 6f 66 20 74 | of the |cdr of t|
|000053e0| 68 65 20 63 61 72 20 6f | 66 20 58 2e 22 5d 29 0a |he car o|f X."]).|
|000053f0| 28 70 75 74 20 28 71 75 | 6f 74 65 20 63 61 64 64 |(put (qu|ote cadd|
|00005400| 61 72 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |ar) (quo|te byte-|
|00005410| 6f 70 74 69 6d 69 7a 65 | 72 29 20 28 71 75 6f 74 |optimize|r) (quot|
|00005420| 65 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |e byte-c|ompile-i|
|00005430| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 29 29 0a 28 |nline-ex|pand)).(|
|00005440| 64 65 66 61 6c 69 61 73 | 20 27 63 64 61 64 61 72 |defalias| 'cdadar|
|00005450| 20 23 5b 28 58 29 20 22 | 08 40 41 40 41 87 22 20 | #[(X) "|.@A@A." |
|00005460| 5b 58 5d 20 31 20 22 5c | 0a 52 65 74 75 72 6e 20 |[X] 1 "\|.Return |
|00005470| 74 68 65 20 63 64 72 20 | 6f 66 20 74 68 65 20 63 |the cdr |of the c|
|00005480| 61 72 20 6f 66 20 74 68 | 65 20 63 64 72 20 6f 66 |ar of th|e cdr of|
|00005490| 20 74 68 65 20 63 61 72 | 20 6f 66 20 58 2e 22 5d | the car| of X."]|
|000054a0| 29 0a 28 70 75 74 20 28 | 71 75 6f 74 65 20 63 64 |).(put (|quote cd|
|000054b0| 61 64 61 72 29 20 28 71 | 75 6f 74 65 20 62 79 74 |adar) (q|uote byt|
|000054c0| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 29 20 28 71 75 |e-optimi|zer) (qu|
|000054d0| 6f 74 65 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |ote byte|-compile|
|000054e0| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 29 29 |-inline-|expand))|
|000054f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 64 64 61 |.(defali|as 'cdda|
|00005500| 61 72 20 23 5b 28 58 29 | 20 22 08 40 40 41 41 87 |ar #[(X)| ".@@AA.|
|00005510| 22 20 5b 58 5d 20 31 20 | 22 5c 0a 52 65 74 75 72 |" [X] 1 |"\.Retur|
|00005520| 6e 20 74 68 65 20 63 64 | 72 20 6f 66 20 74 68 65 |n the cd|r of the|
|00005530| 20 63 64 72 20 6f 66 20 | 74 68 65 20 63 61 72 20 | cdr of |the car |
|00005540| 6f 66 20 74 68 65 20 63 | 61 72 20 6f 66 20 58 2e |of the c|ar of X.|
|00005550| 22 5d 29 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |"]).(put| (quote |
|00005560| 63 64 64 61 61 72 29 20 | 28 71 75 6f 74 65 20 62 |cddaar) |(quote b|
|00005570| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 29 20 28 |yte-opti|mizer) (|
|00005580| 71 75 6f 74 65 20 62 79 | 74 65 2d 63 6f 6d 70 69 |quote by|te-compi|
|00005590| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|000055a0| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 61 |)).(defa|lias 'ca|
|000055b0| 64 64 64 72 20 23 5b 28 | 58 29 20 22 08 41 41 41 |dddr #[(|X) ".AAA|
|000055c0| 40 87 22 20 5b 58 5d 20 | 31 20 22 5c 0a 52 65 74 |@." [X] |1 "\.Ret|
|000055d0| 75 72 6e 20 74 68 65 20 | 63 61 72 20 6f 66 20 74 |urn the |car of t|
|000055e0| 68 65 20 63 64 72 20 6f | 66 20 74 68 65 20 63 64 |he cdr o|f the cd|
|000055f0| 72 20 6f 66 20 74 68 65 | 20 63 64 72 20 6f 66 20 |r of the| cdr of |
|00005600| 58 2e 22 5d 29 0a 28 70 | 75 74 20 28 71 75 6f 74 |X."]).(p|ut (quot|
|00005610| 65 20 63 61 64 64 64 72 | 29 20 28 71 75 6f 74 65 |e cadddr|) (quote|
|00005620| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 29 | byte-op|timizer)|
|00005630| 20 28 71 75 6f 74 65 20 | 62 79 74 65 2d 63 6f 6d | (quote |byte-com|
|00005640| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00005650| 6e 64 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nd)).(de|falias '|
|00005660| 63 64 64 61 64 72 20 23 | 5b 28 58 29 20 22 08 41 |cddadr #|[(X) ".A|
|00005670| 40 41 41 87 22 20 5b 58 | 5d 20 31 20 22 5c 0a 52 |@AA." [X|] 1 "\.R|
|00005680| 65 74 75 72 6e 20 74 68 | 65 20 63 64 72 20 6f 66 |eturn th|e cdr of|
|00005690| 20 74 68 65 20 63 64 72 | 20 6f 66 20 74 68 65 20 | the cdr| of the |
|000056a0| 63 61 72 20 6f 66 20 74 | 68 65 20 63 64 72 20 6f |car of t|he cdr o|
|000056b0| 66 20 58 2e 22 5d 29 0a | 28 70 75 74 20 28 71 75 |f X."]).|(put (qu|
|000056c0| 6f 74 65 20 63 64 64 61 | 64 72 29 20 28 71 75 6f |ote cdda|dr) (quo|
|000056d0| 74 65 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |te byte-|optimize|
|000056e0| 72 29 20 28 71 75 6f 74 | 65 20 62 79 74 65 2d 63 |r) (quot|e byte-c|
|000056f0| 6f 6d 70 69 6c 65 2d 69 | 6e 6c 69 6e 65 2d 65 78 |ompile-i|nline-ex|
|00005700| 70 61 6e 64 29 29 0a 28 | 64 65 66 61 6c 69 61 73 |pand)).(|defalias|
|00005710| 20 27 63 64 61 64 64 72 | 20 23 5b 28 58 29 20 22 | 'cdaddr| #[(X) "|
|00005720| 08 41 41 40 41 87 22 20 | 5b 58 5d 20 31 20 22 5c |.AA@A." |[X] 1 "\|
|00005730| 0a 52 65 74 75 72 6e 20 | 74 68 65 20 63 64 72 20 |.Return |the cdr |
|00005740| 6f 66 20 74 68 65 20 63 | 61 72 20 6f 66 20 74 68 |of the c|ar of th|
|00005750| 65 20 63 64 72 20 6f 66 | 20 74 68 65 20 63 64 72 |e cdr of| the cdr|
|00005760| 20 6f 66 20 58 2e 22 5d | 29 0a 28 70 75 74 20 28 | of X."]|).(put (|
|00005770| 71 75 6f 74 65 20 63 64 | 61 64 64 72 29 20 28 71 |quote cd|addr) (q|
|00005780| 75 6f 74 65 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |uote byt|e-optimi|
|00005790| 7a 65 72 29 20 28 71 75 | 6f 74 65 20 62 79 74 65 |zer) (qu|ote byte|
|000057a0| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 6c 69 6e 65 2d |-compile|-inline-|
|000057b0| 65 78 70 61 6e 64 29 29 | 0a 28 64 65 66 61 6c 69 |expand))|.(defali|
|000057c0| 61 73 20 27 63 64 64 64 | 61 72 20 23 5b 28 58 29 |as 'cddd|ar #[(X)|
|000057d0| 20 22 08 40 41 41 41 87 | 22 20 5b 58 5d 20 31 20 | ".@AAA.|" [X] 1 |
|000057e0| 22 5c 0a 52 65 74 75 72 | 6e 20 74 68 65 20 63 64 |"\.Retur|n the cd|
|000057f0| 72 20 6f 66 20 74 68 65 | 20 63 64 72 20 6f 66 20 |r of the| cdr of |
|00005800| 74 68 65 20 63 64 72 20 | 6f 66 20 74 68 65 20 63 |the cdr |of the c|
|00005810| 61 72 20 6f 66 20 58 2e | 22 5d 29 0a 28 70 75 74 |ar of X.|"]).(put|
|00005820| 20 28 71 75 6f 74 65 20 | 63 64 64 64 61 72 29 20 | (quote |cdddar) |
|00005830| 28 71 75 6f 74 65 20 62 | 79 74 65 2d 6f 70 74 69 |(quote b|yte-opti|
|00005840| 6d 69 7a 65 72 29 20 28 | 71 75 6f 74 65 20 62 79 |mizer) (|quote by|
|00005850| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 69 6e 6c 69 6e |te-compi|le-inlin|
|00005860| 65 2d 65 78 70 61 6e 64 | 29 29 0a 28 64 65 66 61 |e-expand|)).(defa|
|00005870| 6c 69 61 73 20 27 63 64 | 64 64 64 72 20 23 5b 28 |lias 'cd|dddr #[(|
|00005880| 58 29 20 22 08 41 41 41 | 41 87 22 20 5b 58 5d 20 |X) ".AAA|A." [X] |
|00005890| 31 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |1 "\.Ret|urn the |
|000058a0| 63 64 72 20 6f 66 20 74 | 68 65 20 63 64 72 20 6f |cdr of t|he cdr o|
|000058b0| 66 20 74 68 65 20 63 64 | 72 20 6f 66 20 74 68 65 |f the cd|r of the|
|000058c0| 20 63 64 72 20 6f 66 20 | 58 2e 22 5d 29 0a 28 70 | cdr of |X."]).(p|
|000058d0| 75 74 20 28 71 75 6f 74 | 65 20 63 64 64 64 64 72 |ut (quot|e cddddr|
|000058e0| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 6f 70 |) (quote| byte-op|
|000058f0| 74 69 6d 69 7a 65 72 29 | 20 28 71 75 6f 74 65 20 |timizer)| (quote |
|00005900| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|00005910| 69 6e 65 2d 65 78 70 61 | 6e 64 29 29 0a 28 64 65 |ine-expa|nd)).(de|
|00005920| 66 61 6c 69 61 73 20 27 | 73 65 74 6e 74 68 20 23 |falias '|setnth #|
|00005930| 5b 28 6e 20 6c 69 73 74 | 20 6e 65 77 76 61 6c 29 |[(n list| newval)|
|00005940| 20 22 08 09 9b 5c 6e a0 | 87 22 20 5b 6e 20 6c 69 | "...\n.|." [n li|
|00005950| 73 74 20 6e 65 77 76 61 | 6c 5d 20 32 20 22 5c 0a |st newva|l] 2 "\.|
|00005960| 53 65 74 20 28 6e 74 68 | 20 4e 20 4c 49 53 54 29 |Set (nth| N LIST)|
|00005970| 20 74 6f 20 4e 45 57 56 | 41 4c 2e 20 20 52 65 74 | to NEWV|AL. Ret|
|00005980| 75 72 6e 73 20 4e 45 57 | 56 41 4c 2e 22 5d 29 0a |urns NEW|VAL."]).|
|00005990| 28 70 75 74 20 28 71 75 | 6f 74 65 20 73 65 74 6e |(put (qu|ote setn|
|000059a0| 74 68 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |th) (quo|te byte-|
|000059b0| 6f 70 74 69 6d 69 7a 65 | 72 29 20 28 71 75 6f 74 |optimize|r) (quot|
|000059c0| 65 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |e byte-c|ompile-i|
|000059d0| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 29 29 0a 28 |nline-ex|pand)).(|
|000059e0| 64 65 66 61 6c 69 61 73 | 20 27 73 65 74 6e 74 68 |defalias| 'setnth|
|000059f0| 63 64 72 20 23 5b 28 6e | 20 6c 69 73 74 20 6e 65 |cdr #[(n| list ne|
|00005a00| 77 76 61 6c 29 20 22 08 | c1 57 83 0b 00 c2 c3 08 |wval) ".|.W......|
|00005a10| 5c 22 88 08 c1 56 83 1c | 00 0c 41 14 08 c5 5a 89 |\"...V..|..A...Z.|
|00005a20| 10 82 0c 00 0c 0e 06 40 | a0 88 0c 0e 06 41 a1 88 |.......@|.....A..|
|00005a30| 0e 06 87 22 20 5b 6e 20 | 30 20 65 72 72 6f 72 20 |..." [n |0 error |
|00005a40| 22 4e 20 6d 75 73 74 20 | 62 65 20 30 20 6f 72 20 |"N must |be 0 or |
|00005a50| 67 72 65 61 74 65 72 2c | 20 6e 6f 74 20 25 64 22 |greater,| not %d"|
|00005a60| 20 6c 69 73 74 20 31 20 | 6e 65 77 76 61 6c 5d 20 | list 1 |newval] |
|00005a70| 34 20 22 5c 0a 28 73 65 | 74 6e 74 68 63 64 72 20 |4 "\.(se|tnthcdr |
|00005a80| 4e 20 4c 49 53 54 20 4e | 45 57 56 41 4c 29 20 3d |N LIST N|EWVAL) =|
|00005a90| 3e 20 4e 45 57 56 41 4c | 0a 41 73 20 61 20 73 69 |> NEWVAL|.As a si|
|00005aa0| 64 65 20 65 66 66 65 63 | 74 2c 20 73 65 74 73 20 |de effec|t, sets |
|00005ab0| 74 68 65 20 4e 74 68 20 | 63 64 72 20 6f 66 20 4c |the Nth |cdr of L|
|00005ac0| 49 53 54 20 74 6f 20 4e | 45 57 56 41 4c 2e 22 5d |IST to N|EWVAL."]|
|00005ad0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 63 6f |).(defal|ias 'aco|
|00005ae0| 6e 73 20 23 5b 28 6b 65 | 79 20 69 74 65 6d 20 61 |ns #[(ke|y item a|
|00005af0| 6c 69 73 74 29 20 22 08 | 09 42 5c 6e 42 87 22 20 |list) ".|.B\nB." |
|00005b00| 5b 6b 65 79 20 69 74 65 | 6d 20 61 6c 69 73 74 5d |[key ite|m alist]|
|00005b10| 20 32 20 22 5c 0a 52 65 | 74 75 72 6e 20 61 20 6e | 2 "\.Re|turn a n|
|00005b20| 65 77 20 61 6c 69 73 74 | 20 77 69 74 68 20 4b 45 |ew alist| with KE|
|00005b30| 59 20 70 61 69 72 65 64 | 20 77 69 74 68 20 49 54 |Y paired| with IT|
|00005b40| 45 4d 3b 20 6f 74 68 65 | 72 77 69 73 65 20 6c 69 |EM; othe|rwise li|
|00005b50| 6b 65 20 41 4c 49 53 54 | 2e 0a 44 6f 65 73 20 6e |ke ALIST|..Does n|
|00005b60| 6f 74 20 63 6f 70 79 20 | 41 4c 49 53 54 2e 22 5d |ot copy |ALIST."]|
|00005b70| 29 0a 28 70 75 74 20 28 | 71 75 6f 74 65 20 61 63 |).(put (|quote ac|
|00005b80| 6f 6e 73 29 20 28 71 75 | 6f 74 65 20 62 79 74 65 |ons) (qu|ote byte|
|00005b90| 2d 6f 70 74 69 6d 69 7a | 65 72 29 20 28 71 75 6f |-optimiz|er) (quo|
|00005ba0| 74 65 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |te byte-|compile-|
|00005bb0| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 29 29 0a |inline-e|xpand)).|
|00005bc0| 28 64 65 66 61 6c 69 61 | 73 20 27 70 61 69 72 6c |(defalia|s 'pairl|
|00005bd0| 69 73 20 23 5b 28 6b 65 | 79 73 20 64 61 74 61 20 |is #[(ke|ys data |
|00005be0| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 6c 69 73 74 29 |&optiona|l alist)|
|00005bf0| 20 22 08 47 09 47 55 84 | 0c 00 c2 c3 21 88 08 1c | ".G.GU.|....!...|
|00005c00| 09 1d 0c 40 1e 06 0d 40 | 1e 07 0e 08 1e 09 0c 89 |...@...@|........|
|00005c10| 1e 5c 6e 3c 83 2a 00 0e | 5c 6e 3f 82 31 00 c2 cb |.\n<.*..|\n?.1...|
|00005c20| cc 0e 5c 6e 21 5c 22 29 | 84 5c 5c 00 0e 06 0e 07 |..\n!\")|.\\.....|
|00005c30| 0e 09 1e 08 1e 07 89 1e | 06 0e 07 42 0e 08 2b 42 |........|...B..+B|
|00005c40| 16 09 0c 41 14 0d 41 15 | 0c 40 16 06 0d 40 16 07 |...A..A.|.@...@..|
|00005c50| 82 1c 00 0e 09 2d 87 22 | 20 5b 6b 65 79 73 20 64 |.....-."| [keys d|
|00005c60| 61 74 61 20 65 72 72 6f | 72 20 22 6b 65 79 73 20 |ata erro|r "keys |
|00005c70| 61 6e 64 20 64 61 74 61 | 20 73 68 6f 75 6c 64 20 |and data| should |
|00005c80| 62 65 20 74 68 65 20 73 | 61 6d 65 20 6c 65 6e 67 |be the s|ame leng|
|00005c90| 74 68 22 20 6b 70 74 72 | 20 64 70 74 72 20 6b 65 |th" kptr| dptr ke|
|00005ca0| 79 20 69 74 65 6d 20 61 | 6c 69 73 74 20 72 65 73 |y item a|list res|
|00005cb0| 75 6c 74 20 78 20 22 65 | 6e 64 70 20 72 65 63 65 |ult x "e|ndp rece|
|00005cc0| 69 76 65 64 20 61 20 6e | 6f 6e 2d 63 6f 6e 73 2c |ived a n|on-cons,|
|00005cd0| 20 6e 6f 6e 2d 6e 75 6c | 6c 20 61 72 67 75 6d 65 | non-nul|l argume|
|00005ce0| 6e 74 20 60 25 73 27 22 | 20 70 72 69 6e 31 2d 74 |nt `%s'"| prin1-t|
|00005cf0| 6f 2d 73 74 72 69 6e 67 | 5d 20 35 20 22 5c 0a 52 |o-string|] 5 "\.R|
|00005d00| 65 74 75 72 6e 20 61 20 | 6e 65 77 20 61 6c 69 73 |eturn a |new alis|
|00005d10| 74 20 77 69 74 68 20 65 | 61 63 68 20 65 6c 74 20 |t with e|ach elt |
|00005d20| 6f 66 20 4b 45 59 53 20 | 70 61 69 72 65 64 20 77 |of KEYS |paired w|
|00005d30| 69 74 68 20 61 6e 20 65 | 6c 74 20 6f 66 20 44 41 |ith an e|lt of DA|
|00005d40| 54 41 3b 0a 6f 70 74 69 | 6f 6e 61 6c 20 33 72 64 |TA;.opti|onal 3rd|
|00005d50| 20 61 72 67 20 41 4c 49 | 53 54 20 69 73 20 6e 63 | arg ALI|ST is nc|
|00005d60| 6f 6e 63 27 64 20 61 74 | 20 74 68 65 20 65 6e 64 |onc'd at| the end|
|00005d70| 2e 20 20 4b 45 59 53 20 | 61 6e 64 20 44 41 54 41 |. KEYS |and DATA|
|00005d80| 20 6d 75 73 74 0a 68 61 | 76 65 20 74 68 65 20 73 | must.ha|ve the s|
|00005d90| 61 6d 65 20 6c 65 6e 67 | 74 68 2e 22 5d 29 0a 28 |ame leng|th."]).(|
|00005da0| 64 65 66 63 6f 6e 73 74 | 20 3a 74 65 73 74 20 28 |defconst| :test (|
|00005db0| 71 75 6f 74 65 20 3a 74 | 65 73 74 29 20 22 5c 0a |quote :t|est) "\.|
|00005dc0| 55 73 65 64 20 74 6f 20 | 64 65 73 69 67 6e 61 74 |Used to |designat|
|00005dd0| 65 20 70 6f 73 69 74 69 | 76 65 20 28 73 65 6c 65 |e positi|ve (sele|
|00005de0| 63 74 69 6f 6e 29 20 74 | 65 73 74 73 2e 22 29 0a |ction) t|ests.").|
|00005df0| 28 64 65 66 63 6f 6e 73 | 74 20 3a 74 65 73 74 2d |(defcons|t :test-|
|00005e00| 6e 6f 74 20 28 71 75 6f | 74 65 20 3a 74 65 73 74 |not (quo|te :test|
|00005e10| 2d 6e 6f 74 29 20 22 5c | 0a 55 73 65 64 20 74 6f |-not) "\|.Used to|
|00005e20| 20 64 65 73 69 67 6e 61 | 74 65 20 6e 65 67 61 74 | designa|te negat|
|00005e30| 69 76 65 20 28 72 65 6a | 65 63 74 69 6f 6e 29 20 |ive (rej|ection) |
|00005e40| 74 65 73 74 73 2e 22 29 | 0a 28 64 65 66 63 6f 6e |tests.")|.(defcon|
|00005e50| 73 74 20 3a 6b 65 79 20 | 28 71 75 6f 74 65 20 3a |st :key |(quote :|
|00005e60| 6b 65 79 29 20 22 5c 0a | 55 73 65 64 20 74 6f 20 |key) "\.|Used to |
|00005e70| 64 65 73 69 67 6e 61 74 | 65 20 63 6f 6d 70 6f 6e |designat|e compon|
|00005e80| 65 6e 74 20 65 78 74 72 | 61 63 74 69 6f 6e 73 2e |ent extr|actions.|
|00005e90| 22 29 0a 28 64 65 66 63 | 6f 6e 73 74 20 3a 70 72 |").(defc|onst :pr|
|00005ea0| 65 64 69 63 61 74 65 20 | 28 71 75 6f 74 65 20 3a |edicate |(quote :|
|00005eb0| 70 72 65 64 69 63 61 74 | 65 29 20 22 5c 0a 55 73 |predicat|e) "\.Us|
|00005ec0| 65 64 20 74 6f 20 64 65 | 66 69 6e 65 20 6d 61 74 |ed to de|fine mat|
|00005ed0| 63 68 69 6e 67 20 6f 66 | 20 73 65 71 75 65 6e 63 |ching of| sequenc|
|00005ee0| 65 20 63 6f 6d 70 6f 6e | 65 6e 74 73 2e 22 29 0a |e compon|ents.").|
|00005ef0| 28 64 65 66 63 6f 6e 73 | 74 20 3a 73 74 61 72 74 |(defcons|t :start|
|00005f00| 20 28 71 75 6f 74 65 20 | 3a 73 74 61 72 74 29 20 | (quote |:start) |
|00005f10| 22 5c 0a 49 6e 63 6c 75 | 73 69 76 65 20 6c 6f 77 |"\.Inclu|sive low|
|00005f20| 20 69 6e 64 65 78 20 69 | 6e 20 73 65 71 75 65 6e | index i|n sequen|
|00005f30| 63 65 22 29 0a 28 64 65 | 66 63 6f 6e 73 74 20 3a |ce").(de|fconst :|
|00005f40| 65 6e 64 20 28 71 75 6f | 74 65 20 3a 65 6e 64 29 |end (quo|te :end)|
|00005f50| 20 22 5c 0a 45 78 63 6c | 75 73 69 76 65 20 68 69 | "\.Excl|usive hi|
|00005f60| 67 68 20 69 6e 64 65 78 | 20 69 6e 20 73 65 71 75 |gh index| in sequ|
|00005f70| 65 6e 63 65 22 29 0a 28 | 64 65 66 63 6f 6e 73 74 |ence").(|defconst|
|00005f80| 20 3a 73 74 61 72 74 31 | 20 28 71 75 6f 74 65 20 | :start1| (quote |
|00005f90| 3a 73 74 61 72 74 31 29 | 20 22 5c 0a 49 6e 63 6c |:start1)| "\.Incl|
|00005fa0| 75 73 69 76 65 20 6c 6f | 77 20 69 6e 64 65 78 20 |usive lo|w index |
|00005fb0| 69 6e 20 66 69 72 73 74 | 20 6f 66 20 74 77 6f 20 |in first| of two |
|00005fc0| 73 65 71 75 65 6e 63 65 | 73 2e 22 29 0a 28 64 65 |sequence|s.").(de|
|00005fd0| 66 63 6f 6e 73 74 20 3a | 73 74 61 72 74 32 20 28 |fconst :|start2 (|
|00005fe0| 71 75 6f 74 65 20 3a 73 | 74 61 72 74 32 29 20 22 |quote :s|tart2) "|
|00005ff0| 5c 0a 49 6e 63 6c 75 73 | 69 76 65 20 6c 6f 77 20 |\.Inclus|ive low |
|00006000| 69 6e 64 65 78 20 69 6e | 20 73 65 63 6f 6e 64 20 |index in| second |
|00006010| 6f 66 20 74 77 6f 20 73 | 65 71 75 65 6e 63 65 73 |of two s|equences|
|00006020| 2e 22 29 0a 28 64 65 66 | 63 6f 6e 73 74 20 3a 65 |.").(def|const :e|
|00006030| 6e 64 31 20 28 71 75 6f | 74 65 20 3a 65 6e 64 31 |nd1 (quo|te :end1|
|00006040| 29 20 22 5c 0a 45 78 63 | 6c 75 73 69 76 65 20 68 |) "\.Exc|lusive h|
|00006050| 69 67 68 20 69 6e 64 65 | 78 20 69 6e 20 66 69 72 |igh inde|x in fir|
|00006060| 73 74 20 6f 66 20 74 77 | 6f 20 73 65 71 75 65 6e |st of tw|o sequen|
|00006070| 63 65 73 2e 22 29 0a 28 | 64 65 66 63 6f 6e 73 74 |ces.").(|defconst|
|00006080| 20 3a 65 6e 64 32 20 28 | 71 75 6f 74 65 20 3a 65 | :end2 (|quote :e|
|00006090| 6e 64 32 29 20 22 5c 0a | 45 78 63 6c 75 73 69 76 |nd2) "\.|Exclusiv|
|000060a0| 65 20 68 69 67 68 20 69 | 6e 64 65 78 20 69 6e 20 |e high i|ndex in |
|000060b0| 73 65 63 6f 6e 64 20 6f | 66 20 74 77 6f 20 73 65 |second o|f two se|
|000060c0| 71 75 65 6e 63 65 73 2e | 22 29 0a 28 64 65 66 63 |quences.|").(defc|
|000060d0| 6f 6e 73 74 20 3a 63 6f | 75 6e 74 20 28 71 75 6f |onst :co|unt (quo|
|000060e0| 74 65 20 3a 63 6f 75 6e | 74 29 20 22 5c 0a 4e 75 |te :coun|t) "\.Nu|
|000060f0| 6d 62 65 72 20 6f 66 20 | 65 6c 65 6d 65 6e 74 73 |mber of |elements|
|00006100| 20 74 6f 20 61 66 66 65 | 63 74 2e 22 29 0a 28 64 | to affe|ct.").(d|
|00006110| 65 66 63 6f 6e 73 74 20 | 3a 66 72 6f 6d 2d 65 6e |efconst |:from-en|
|00006120| 64 20 28 71 75 6f 74 65 | 20 3a 66 72 6f 6d 2d 65 |d (quote| :from-e|
|00006130| 6e 64 29 20 22 5c 0a 54 | 20 77 68 65 6e 20 63 6f |nd) "\.T| when co|
|00006140| 75 6e 74 69 6e 67 20 62 | 61 63 6b 77 61 72 64 73 |unting b|ackwards|
|00006150| 2e 22 29 0a 28 64 65 66 | 63 6f 6e 73 74 20 3a 69 |.").(def|const :i|
|00006160| 6e 69 74 69 61 6c 2d 76 | 61 6c 75 65 20 28 71 75 |nitial-v|alue (qu|
|00006170| 6f 74 65 20 3a 69 6e 69 | 74 69 61 6c 2d 76 61 6c |ote :ini|tial-val|
|00006180| 75 65 29 20 22 5c 0a 46 | 6f 72 20 74 68 65 20 73 |ue) "\.F|or the s|
|00006190| 79 6e 74 61 78 20 6f 66 | 20 23 27 72 65 64 75 63 |yntax of| #'reduc|
|000061a0| 65 22 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |e").(def|alias 's|
|000061b0| 6f 6d 65 20 23 5b 28 70 | 72 65 64 20 73 65 71 20 |ome #[(p|red seq |
|000061c0| 26 72 65 73 74 20 6d 6f | 72 65 73 65 71 73 29 20 |&rest mo|reseqs) |
|000061d0| 22 c0 c1 5c 6e 0b 5c 22 | 21 1c c5 1e 06 c5 1e 07 |"..\n.\"|!.......|
|000061e0| c5 1e 08 0c 89 1e 09 40 | 1e 5c 6e 0e 06 84 55 00 |.......@|.\n...U.|
|000061f0| 0e 09 89 1e 0b 3c 83 2b | 00 0e 0b 3f 82 32 00 cc |.....<.+|...?.2..|
|00006200| cd ce 0e 0b 21 5c 22 29 | 84 55 00 cf 0e 10 0e 5c |....!\")|.U.....\|
|00006210| 6e 5c 22 89 16 08 83 49 | 00 d1 16 06 0e 08 16 07 |n\"....I|........|
|00006220| 0e 09 41 89 16 09 40 16 | 5c 6e 82 17 00 0e 07 2e |..A...@.|\n......|
|00006230| 06 87 22 20 5b 72 65 61 | 73 73 65 6d 62 6c 65 2d |.." [rea|ssemble-|
|00006240| 61 72 67 73 6c 69 73 74 | 73 20 6c 69 73 74 2a 20 |argslist|s list* |
|00006250| 73 65 71 20 6d 6f 72 65 | 73 65 71 73 20 61 72 67 |seq more|seqs arg|
|00006260| 73 20 6e 69 6c 20 72 65 | 61 64 79 20 72 65 73 75 |s nil re|ady resu|
|00006270| 6c 74 20 61 70 70 6c 79 | 76 61 6c 20 72 65 6d 61 |lt apply|val rema|
|00006280| 69 6e 69 6e 67 20 63 75 | 72 72 65 6e 74 20 78 20 |ining cu|rrent x |
|00006290| 65 72 72 6f 72 20 22 65 | 6e 64 70 20 72 65 63 65 |error "e|ndp rece|
|000062a0| 69 76 65 64 20 61 20 6e | 6f 6e 2d 63 6f 6e 73 2c |ived a n|on-cons,|
|000062b0| 20 6e 6f 6e 2d 6e 75 6c | 6c 20 61 72 67 75 6d 65 | non-nul|l argume|
|000062c0| 6e 74 20 60 25 73 27 22 | 20 70 72 69 6e 31 2d 74 |nt `%s'"| prin1-t|
|000062d0| 6f 2d 73 74 72 69 6e 67 | 20 61 70 70 6c 79 20 70 |o-string| apply p|
|000062e0| 72 65 64 20 74 5d 20 35 | 20 22 5c 0a 54 65 73 74 |red t] 5| "\.Test|
|000062f0| 20 50 52 45 44 49 43 41 | 54 45 20 6f 6e 20 65 61 | PREDICA|TE on ea|
|00006300| 63 68 20 65 6c 65 6d 65 | 6e 74 20 6f 66 20 53 45 |ch eleme|nt of SE|
|00006310| 51 55 45 4e 43 45 3b 20 | 69 73 20 69 74 20 65 76 |QUENCE; |is it ev|
|00006320| 65 72 20 6e 6f 6e 2d 6e | 69 6c 3f 0a 45 78 74 72 |er non-n|il?.Extr|
|00006330| 61 20 61 72 67 73 20 61 | 72 65 20 61 64 64 69 74 |a args a|re addit|
|00006340| 69 6f 6e 61 6c 20 73 65 | 71 75 65 6e 63 65 73 3b |ional se|quences;|
|00006350| 20 50 52 45 44 49 43 41 | 54 45 20 67 65 74 73 20 | PREDICA|TE gets |
|00006360| 6f 6e 65 20 61 72 67 20 | 66 72 6f 6d 20 65 61 63 |one arg |from eac|
|00006370| 68 0a 73 65 71 75 65 6e | 63 65 20 61 6e 64 20 77 |h.sequen|ce and w|
|00006380| 65 20 61 64 76 61 6e 63 | 65 20 64 6f 77 6e 20 61 |e advanc|e down a|
|00006390| 6c 6c 20 74 68 65 20 73 | 65 71 75 65 6e 63 65 73 |ll the s|equences|
|000063a0| 20 74 6f 67 65 74 68 65 | 72 20 69 6e 20 6c 6f 63 | togethe|r in loc|
|000063b0| 6b 2d 73 74 65 70 2e 0a | 41 20 73 65 71 75 65 6e |k-step..|A sequen|
|000063c0| 63 65 20 6d 65 61 6e 73 | 20 65 69 74 68 65 72 20 |ce means| either |
|000063d0| 61 20 6c 69 73 74 20 6f | 72 20 61 20 76 65 63 74 |a list o|r a vect|
|000063e0| 6f 72 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |or."]).(|defalias|
|000063f0| 20 27 65 76 65 72 79 20 | 23 5b 28 70 72 65 64 20 | 'every |#[(pred |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
