/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / backquote.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 46 72 69 20 | 4d 61 79 20 20 36 20 32 | on Fri |May  6 2|
|00000040| 30 3a 31 33 3a 33 36 20 | 31 39 39 34 0a 3b 3b 3b |0:13:36 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 62 61 63 6b 71 75 | 6f 74 65 2e 65 6c 0a 3b |p/backqu|ote.el.;|
|00000080| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|00000090| 20 31 39 2e 32 32 2e 39 | 31 2e 35 2e 0a 3b 3b 3b | 19.22.9|1.5..;;;|
|000000a0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000b0| 6e 20 46 53 46 20 32 2e | 31 30 0a 3b 3b 3b 20 6f |n FSF 2.|10.;;; o|
|000000c0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000d0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|000000e0| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|000000f0| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000100| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000110| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000120| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000130| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000140| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000150| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000160| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|00000170| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000180| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))).  |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 60 2f 68 6f 6d 65 |  (error| "`/home|
|000001a0| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|000001b0| 70 2f 62 61 63 6b 71 75 | 6f 74 65 2e 65 6c 27 20 |p/backqu|ote.el' |
|000001c0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001d0| 20 45 6d 61 63 73 20 31 | 39 22 29 29 0a 0a 28 70 | Emacs 1|9"))..(p|
|000001e0| 72 6f 76 69 64 65 20 28 | 71 75 6f 74 65 20 62 61 |rovide (|quote ba|
|000001f0| 63 6b 71 75 6f 74 65 29 | 29 0a 28 64 65 66 61 6c |ckquote)|).(defal|
|00000200| 69 61 73 20 27 62 61 63 | 6b 71 75 6f 74 65 2d 6c |ias 'bac|kquote-l|
|00000210| 69 73 74 2a 2d 66 75 6e | 63 74 69 6f 6e 20 23 5b |ist*-fun|ction #[|
|00000220| 28 66 69 72 73 74 20 26 | 72 65 73 74 20 6c 69 73 |(first &|rest lis|
|00000230| 74 29 20 22 08 83 2a 00 | 08 19 5c 6e c3 42 89 1c |t) "..*.|..\n.B..|
|00000240| 1d 09 41 83 5c 22 00 0d | 09 40 c3 42 a1 88 0d 41 |..A.\"..|.@.B...A|
|00000250| 15 09 41 89 11 82 0d 00 | 0d 09 40 a1 88 5c 66 2b |..A.....|..@..\f+|
|00000260| 87 5c 6e 87 22 20 5b 6c | 69 73 74 20 72 65 73 74 |.\n." [l|ist rest|
|00000270| 20 66 69 72 73 74 20 6e | 69 6c 20 6e 65 77 6c 69 | first n|il newli|
|00000280| 73 74 20 6c 61 73 74 5d | 20 34 20 22 5c 0a 4c 69 |st last]| 4 "\.Li|
|00000290| 6b 65 20 60 6c 69 73 74 | 27 20 62 75 74 20 74 68 |ke `list|' but th|
|000002a0| 65 20 6c 61 73 74 20 61 | 72 67 75 6d 65 6e 74 20 |e last a|rgument |
|000002b0| 69 73 20 74 68 65 20 74 | 61 69 6c 20 6f 66 20 74 |is the t|ail of t|
|000002c0| 68 65 20 6e 65 77 20 6c | 69 73 74 2e 0a 0a 46 6f |he new l|ist...Fo|
|000002d0| 72 20 65 78 61 6d 70 6c | 65 20 28 62 61 63 6b 71 |r exampl|e (backq|
|000002e0| 75 6f 74 65 2d 6c 69 73 | 74 2a 20 27 61 20 27 62 |uote-lis|t* 'a 'b|
|000002f0| 20 27 63 29 20 3d 3e 20 | 28 61 20 62 20 2e 20 63 | 'c) => |(a b . c|
|00000300| 29 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |)"]).(de|falias '|
|00000310| 62 61 63 6b 71 75 6f 74 | 65 2d 6c 69 73 74 2a 2d |backquot|e-list*-|
|00000320| 6d 61 63 72 6f 20 27 28 | 6d 61 63 72 6f 20 2e 20 |macro '(|macro . |
|00000330| 23 5b 28 66 69 72 73 74 | 20 26 72 65 73 74 20 6c |#[(first| &rest l|
|00000340| 69 73 74 29 20 22 c0 09 | 5c 6e 42 21 89 12 40 11 |ist) "..|\nB!..@.|
|00000350| 5c 6e 41 89 12 83 33 00 | 5c 6e 40 1b 5c 6e 41 1c |\nA...3.|\n@.\nA.|
|00000360| c5 0b 09 45 1e 06 5c 66 | 83 2f 00 c5 5c 66 40 0e |...E..\f|./..\f@.|
|00000370| 06 45 16 06 5c 66 41 89 | 14 84 20 00 0e 06 2b 87 |.E..\fA.|.. ...+.|
|00000380| 09 87 22 20 5b 72 65 76 | 65 72 73 65 20 66 69 72 |.." [rev|erse fir|
|00000390| 73 74 20 6c 69 73 74 20 | 73 65 63 6f 6e 64 20 72 |st list |second r|
|000003a0| 65 73 74 20 63 6f 6e 73 | 20 6e 65 77 6c 69 73 74 |est cons| newlist|
|000003b0| 5d 20 34 20 22 5c 0a 4c | 69 6b 65 20 60 6c 69 73 |] 4 "\.L|ike `lis|
|000003c0| 74 27 20 62 75 74 20 74 | 68 65 20 6c 61 73 74 20 |t' but t|he last |
|000003d0| 61 72 67 75 6d 65 6e 74 | 20 69 73 20 74 68 65 20 |argument| is the |
|000003e0| 74 61 69 6c 20 6f 66 20 | 74 68 65 20 6e 65 77 20 |tail of |the new |
|000003f0| 6c 69 73 74 2e 0a 0a 46 | 6f 72 20 65 78 61 6d 70 |list...F|or examp|
|00000400| 6c 65 20 28 62 61 63 6b | 71 75 6f 74 65 2d 6c 69 |le (back|quote-li|
|00000410| 73 74 2a 20 27 61 20 27 | 62 20 27 63 29 20 3d 3e |st* 'a '|b 'c) =>|
|00000420| 20 28 61 20 62 20 2e 20 | 63 29 22 5d 29 29 0a 28 | (a b . |c)"])).(|
|00000430| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 4b 5c |byte-cod|e "...K\|
|00000440| 22 87 22 20 5b 64 65 66 | 61 6c 69 61 73 20 62 61 |"." [def|alias ba|
|00000450| 63 6b 71 75 6f 74 65 2d | 6c 69 73 74 2a 20 62 61 |ckquote-|list* ba|
|00000460| 63 6b 71 75 6f 74 65 2d | 6c 69 73 74 2a 2d 6d 61 |ckquote-|list*-ma|
|00000470| 63 72 6f 5d 20 33 29 0a | 28 64 65 66 76 61 72 20 |cro] 3).|(defvar |
|00000480| 62 61 63 6b 71 75 6f 74 | 65 2d 62 61 63 6b 71 75 |backquot|e-backqu|
|00000490| 6f 74 65 2d 73 79 6d 62 | 6f 6c 20 28 71 75 6f 74 |ote-symb|ol (quot|
|000004a0| 65 20 5c 60 29 20 22 5c | 0a 2a 53 79 6d 62 6f 6c |e \`) "\|.*Symbol|
|000004b0| 20 75 73 65 64 20 74 6f | 20 72 65 70 72 65 73 65 | used to| represe|
|000004c0| 6e 74 20 61 20 62 61 63 | 6b 71 75 6f 74 65 20 6f |nt a bac|kquote o|
|000004d0| 72 20 6e 65 73 74 65 64 | 20 62 61 63 6b 71 75 6f |r nested| backquo|
|000004e0| 74 65 20 28 65 2e 67 2e | 20 60 29 2e 22 29 0a 28 |te (e.g.| `).").(|
|000004f0| 64 65 66 76 61 72 20 62 | 61 63 6b 71 75 6f 74 65 |defvar b|ackquote|
|00000500| 2d 75 6e 71 75 6f 74 65 | 2d 73 79 6d 62 6f 6c 20 |-unquote|-symbol |
|00000510| 28 71 75 6f 74 65 20 5c | 2c 29 20 22 5c 0a 2a 53 |(quote \|,) "\.*S|
|00000520| 79 6d 62 6f 6c 20 75 73 | 65 64 20 74 6f 20 72 65 |ymbol us|ed to re|
|00000530| 70 72 65 73 65 6e 74 20 | 61 6e 20 75 6e 71 75 6f |present |an unquo|
|00000540| 74 65 20 28 65 2e 67 2e | 20 60 2c 27 29 20 69 6e |te (e.g.| `,') in|
|00000550| 73 69 64 65 20 61 20 62 | 61 63 6b 71 75 6f 74 65 |side a b|ackquote|
|00000560| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 62 61 63 6b |.").(def|var back|
|00000570| 71 75 6f 74 65 2d 73 70 | 6c 69 63 65 2d 73 79 6d |quote-sp|lice-sym|
|00000580| 62 6f 6c 20 28 71 75 6f | 74 65 20 5c 2c 40 29 20 |bol (quo|te \,@) |
|00000590| 22 5c 0a 2a 53 79 6d 62 | 6f 6c 20 75 73 65 64 20 |"\.*Symb|ol used |
|000005a0| 74 6f 20 72 65 70 72 65 | 73 65 6e 74 20 61 20 73 |to repre|sent a s|
|000005b0| 70 6c 69 63 65 20 28 65 | 2e 67 2e 20 60 2c 27 40 |plice (e|.g. `,'@|
|000005c0| 29 20 69 6e 73 69 64 65 | 20 61 20 62 61 63 6b 71 |) inside| a backq|
|000005d0| 75 6f 74 65 2e 22 29 0a | 28 64 65 66 61 6c 69 61 |uote.").|(defalia|
|000005e0| 73 20 27 62 61 63 6b 71 | 75 6f 74 65 20 27 28 6d |s 'backq|uote '(m|
|000005f0| 61 63 72 6f 20 2e 20 23 | 5b 28 61 72 67 29 20 22 |acro . #|[(arg) "|
|00000600| c0 09 21 41 87 22 20 5b | 62 61 63 6b 71 75 6f 74 |..!A." [|backquot|
|00000610| 65 2d 70 72 6f 63 65 73 | 73 20 61 72 67 5d 20 32 |e-proces|s arg] 2|
|00000620| 20 22 5c 0a 41 72 67 75 | 6d 65 6e 74 20 53 54 52 | "\.Argu|ment STR|
|00000630| 55 43 54 55 52 45 20 64 | 65 73 63 72 69 62 65 73 |UCTURE d|escribes|
|00000640| 20 61 20 74 65 6d 70 6c | 61 74 65 20 74 6f 20 62 | a templ|ate to b|
|00000650| 75 69 6c 64 2e 0a 0a 54 | 68 65 20 77 68 6f 6c 65 |uild...T|he whole|
|00000660| 20 73 74 72 75 63 74 75 | 72 65 20 61 63 74 73 20 | structu|re acts |
|00000670| 61 73 20 69 66 20 69 74 | 20 77 65 72 65 20 71 75 |as if it| were qu|
|00000680| 6f 74 65 64 20 65 78 63 | 65 70 74 20 66 6f 72 20 |oted exc|ept for |
|00000690| 63 65 72 74 61 69 6e 0a | 70 6c 61 63 65 73 20 77 |certain.|places w|
|000006a0| 68 65 72 65 20 65 78 70 | 72 65 73 73 69 6f 6e 73 |here exp|ressions|
|000006b0| 20 61 72 65 20 65 76 61 | 6c 75 61 74 65 64 20 61 | are eva|luated a|
|000006c0| 6e 64 20 69 6e 73 65 72 | 74 65 64 20 6f 72 20 73 |nd inser|ted or s|
|000006d0| 70 6c 69 63 65 64 20 69 | 6e 2e 0a 0a 46 6f 72 20 |pliced i|n...For |
|000006e0| 65 78 61 6d 70 6c 65 3a | 0a 0a 62 20 20 20 20 20 |example:|..b     |
|000006f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3d 3e 20 28 |        |    => (|
|00000700| 62 61 20 62 62 20 62 63 | 29 09 09 3b 20 61 73 73 |ba bb bc|)..; ass|
|00000710| 75 6d 65 20 62 20 68 61 | 73 20 74 68 69 73 20 76 |ume b ha|s this v|
|00000720| 61 6c 75 65 0a 28 60 20 | 28 61 20 62 20 63 29 29 |alue.(` |(a b c))|
|00000730| 20 20 20 20 20 20 20 3d | 3e 20 28 61 20 62 20 63 |       =|> (a b c|
|00000740| 29 09 09 3b 20 62 61 63 | 6b 71 75 6f 74 65 20 61 |)..; bac|kquote a|
|00000750| 63 74 73 20 6c 69 6b 65 | 20 71 75 6f 74 65 0a 28 |cts like| quote.(|
|00000760| 60 20 28 61 20 28 2c 20 | 62 29 20 63 29 29 20 20 |` (a (, |b) c))  |
|00000770| 20 3d 3e 20 28 61 20 28 | 62 61 20 62 62 20 62 63 | => (a (|ba bb bc|
|00000780| 29 20 63 29 09 3b 20 69 | 6e 73 65 72 74 20 74 68 |) c).; i|nsert th|
|00000790| 65 20 76 61 6c 75 65 20 | 6f 66 20 62 0a 28 60 20 |e value |of b.(` |
|000007a0| 28 61 20 28 2c 40 20 62 | 29 20 63 29 29 20 20 3d |(a (,@ b|) c))  =|
|000007b0| 3e 20 28 61 20 62 61 20 | 62 62 20 62 63 20 63 29 |> (a ba |bb bc c)|
|000007c0| 09 3b 20 73 70 6c 69 63 | 65 20 69 6e 20 74 68 65 |.; splic|e in the|
|000007d0| 20 76 61 6c 75 65 20 6f | 66 20 62 0a 0a 56 65 63 | value o|f b..Vec|
|000007e0| 74 6f 72 73 20 77 6f 72 | 6b 20 6a 75 73 74 20 6c |tors wor|k just l|
|000007f0| 69 6b 65 20 6c 69 73 74 | 73 2e 20 20 4e 65 73 74 |ike list|s.  Nest|
|00000800| 65 64 20 62 61 63 6b 71 | 75 6f 74 65 73 20 61 72 |ed backq|uotes ar|
|00000810| 65 20 70 65 72 6d 69 74 | 74 65 64 2e 22 5d 29 29 |e permit|ted."]))|
|00000820| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|00000830| 4b 5c 22 88 c0 c3 c4 5c | 22 88 c0 c5 c6 5c 22 87 |K\"....\|"....\".|
|00000840| 22 20 5b 64 65 66 61 6c | 69 61 73 20 5c 60 20 62 |" [defal|ias \` b|
|00000850| 61 63 6b 71 75 6f 74 65 | 20 62 61 63 6b 71 75 6f |ackquote| backquo|
|00000860| 74 65 2d 70 72 6f 63 65 | 73 73 20 23 5b 28 73 29 |te-proce|ss #[(s)|
|00000870| 20 22 c0 09 21 83 43 00 | c2 c3 09 c4 5c 22 21 89 | "..!.C.|....\"!.|
|00000880| 1d 40 c6 55 83 1a 00 c6 | 09 42 82 41 00 c7 0d 41 |.@.U....|.B.A...A|
|00000890| 40 c8 3d 83 2b 00 c9 0d | 41 41 42 82 40 00 0d 41 |@.=.+...|AAB.@..A|
|000008a0| 40 c3 3d 83 3b 00 ca 0d | 41 41 42 82 40 00 cb cc |@.=.;...|AAB.@...|
|000008b0| 0d 41 45 42 29 87 09 3a | 84 61 00 c6 09 83 58 00 |.AEB)..:|.a....X.|
|000008c0| 09 cd 3d 84 58 00 09 39 | 84 5c 5c 00 09 82 5f 00 |..=.X..9|.\\..._.|
|000008d0| ce 09 44 42 87 09 40 0e | 0f 3d 83 6f 00 c7 09 41 |..DB..@.|.=.o...A|
|000008e0| 40 42 87 09 40 0e 10 3d | 83 7d 00 d1 09 41 40 42 |@B..@..=|.}...A@B|
|000008f0| 87 09 40 0e 12 3d 83 8e | 00 c2 89 09 41 40 21 41 |..@..=..|....A@!A|
|00000900| 21 87 09 c4 89 89 89 89 | 1e 13 1e 14 1e 08 1e 15 |!.......|........|
|00000910| 1e 16 89 1e 17 3a 83 ff | 00 0e 17 40 0e 0f 3d 83 |.....:..|...@..=.|
|00000920| b8 00 0e 10 0e 17 41 40 | 44 43 16 17 c2 0e 17 40 |......A@|DC.....@|
|00000930| 21 89 16 16 40 d1 55 83 | ef 00 0e 15 84 d2 00 0e |!...@.U.|........|
|00000940| 08 16 15 c4 16 08 0e 08 | 83 e1 00 d8 0e 08 d9 5c |........|.......\|
|00000950| 22 0e 14 42 16 14 0e 16 | 41 0e 14 42 16 14 c4 16 |"..B....|A..B....|
|00000960| 08 82 f6 00 0e 16 0e 08 | 42 16 08 0e 17 41 89 16 |........|B....A..|
|00000970| 17 82 a1 00 0e 17 84 09 | 01 0e 08 83 16 01 d8 0e |........|........|
|00000980| 08 c2 0e 17 21 5c 22 0e | 14 42 16 14 0e 14 41 84 |....!\".|.B....A.|
|00000990| 26 01 0e 14 40 a2 0e 10 | 3d 83 2e 01 c3 0e 14 9f |&...@...|=.......|
|000009a0| 42 82 31 01 0e 14 40 16 | 13 0e 15 83 42 01 d8 0e |B.1...@.|....B...|
|000009b0| 15 c7 0e 13 42 5c 22 16 | 13 0e 13 a2 ce 3d 83 52 |....B\".|.....=.R|
|000009c0| 01 c6 ce 09 44 42 82 56 | 01 c7 0e 13 42 2e 06 87 |....DB.V|....B...|
|000009d0| 22 20 5b 76 65 63 74 6f | 72 70 20 73 20 62 61 63 |" [vecto|rp s bac|
|000009e0| 6b 71 75 6f 74 65 2d 70 | 72 6f 63 65 73 73 20 61 |kquote-p|rocess a|
|000009f0| 70 70 65 6e 64 20 6e 69 | 6c 20 6e 20 30 20 31 20 |ppend ni|l n 0 1 |
|00000a00| 6c 69 73 74 20 76 65 63 | 74 6f 72 20 76 63 6f 6e |list vec|tor vcon|
|00000a10| 63 61 74 20 61 70 70 6c | 79 20 28 66 75 6e 63 74 |cat appl|y (funct|
|00000a20| 69 6f 6e 20 76 65 63 74 | 6f 72 29 20 74 20 71 75 |ion vect|or) t qu|
|00000a30| 6f 74 65 20 62 61 63 6b | 71 75 6f 74 65 2d 75 6e |ote back|quote-un|
|00000a40| 71 75 6f 74 65 2d 73 79 | 6d 62 6f 6c 20 62 61 63 |quote-sy|mbol bac|
|00000a50| 6b 71 75 6f 74 65 2d 73 | 70 6c 69 63 65 2d 73 79 |kquote-s|plice-sy|
|00000a60| 6d 62 6f 6c 20 32 20 62 | 61 63 6b 71 75 6f 74 65 |mbol 2 b|ackquote|
|00000a70| 2d 62 61 63 6b 71 75 6f | 74 65 2d 73 79 6d 62 6f |-backquo|te-symbo|
|00000a80| 6c 20 65 78 70 72 65 73 | 73 69 6f 6e 20 6c 69 73 |l expres|sion lis|
|00000a90| 74 73 20 66 69 72 73 74 | 6c 69 73 74 20 69 74 65 |ts first|list ite|
|00000aa0| 6d 20 72 65 73 74 20 62 | 61 63 6b 71 75 6f 74 65 |m rest b|ackquote|
|00000ab0| 2d 6c 69 73 74 69 66 79 | 20 28 30 29 5d 20 37 5d |-listify| (0)] 7]|
|00000ac0| 20 62 61 63 6b 71 75 6f | 74 65 2d 6c 69 73 74 69 | backquo|te-listi|
|00000ad0| 66 79 20 23 5b 28 6c 69 | 73 74 20 6f 6c 64 2d 74 |fy #[(li|st old-t|
|00000ae0| 61 69 6c 29 20 22 c0 09 | 41 5c 6e c0 1b 1c 1d 1e |ail) "..|A\n.....|
|00000af0| 06 09 40 c7 55 83 17 00 | c8 0d 21 15 c0 11 5c 66 |..@.U...|..!...\f|
|00000b00| 3a 83 46 00 5c 66 40 13 | 5c 66 41 14 0e 06 84 32 |:.F.\f@.|\fA....2|
|00000b10| 00 09 84 32 00 0b 40 c7 | 55 84 3c 00 0b 41 0e 06 |...2..@.|U.<..A..|
|00000b20| 42 16 06 82 17 00 c8 0b | 41 21 0d 42 15 82 17 00 |B.......|A!.B....|
|00000b30| 0d 83 85 00 09 84 52 00 | c9 0d 44 15 0e 06 83 81 |......R.|..D.....|
|00000b40| 00 0e 06 41 86 6b 00 0e | 06 40 3a 85 6b 00 0e 06 |...A.k..|.@:.k...|
|00000b50| 40 40 0e 5c 6e 3d 89 1e | 0b 83 75 00 cc 82 76 00 |@@.\n=..|..u...v.|
|00000b60| cd ce 0e 06 0d 43 5c 22 | 29 42 82 89 00 0d 82 89 |.....C\"|)B......|
|00000b70| 00 c2 0e 06 42 2c 87 22 | 20 5b 6e 69 6c 20 6f 6c |....B,."| [nil ol|
|00000b80| 64 2d 74 61 69 6c 20 6c | 69 73 74 20 69 74 65 6d |d-tail l|ist item|
|00000b90| 20 6c 69 73 74 2d 74 61 | 69 6c 20 74 61 69 6c 20 | list-ta|il tail |
|00000ba0| 68 65 61 64 73 20 30 20 | 65 76 61 6c 20 71 75 6f |heads 0 |eval quo|
|00000bb0| 74 65 20 62 61 63 6b 71 | 75 6f 74 65 2d 73 70 6c |te backq|uote-spl|
|00000bc0| 69 63 65 2d 73 79 6d 62 | 6f 6c 20 75 73 65 2d 6c |ice-symb|ol use-l|
|00000bd0| 69 73 74 2a 20 62 61 63 | 6b 71 75 6f 74 65 2d 6c |ist* bac|kquote-l|
|00000be0| 69 73 74 2a 20 63 6f 6e | 73 20 61 70 70 65 6e 64 |ist* con|s append|
|00000bf0| 5d 20 35 5d 5d 20 33 29 | 0a                      |] 5]] 3)|.       |
+--------+-------------------------+-------------------------+--------+--------+