/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / 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 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 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 32 3a 31 37 3a 30 | 30 20 31 39 39 33 0a 3b | 22:17:0|0 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 62 61 63 | 6b 71 75 6f 74 65 2e 65 |lisp/bac|kquote.e|
|00000080| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|00000090| 69 6f 6e 20 31 39 2e 31 | 35 2e 31 36 2e 0a 3b 3b |ion 19.1|5.16..;;|
|000000a0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000b0| 6f 6e 20 46 53 46 20 32 | 2e 31 30 0a 3b 3b 3b 20 |on FSF 2|.10.;;; |
|000000c0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|000000d0| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|000000e0| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|000000f0| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000100| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 38 2e 0a 0a |t in Ema|cs 18...|
|00000110| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000120| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000130| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000140| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000150| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000160| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|00000170| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|00000180| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|00000190| 20 20 20 28 65 72 72 6f | 72 20 22 54 68 69 73 20 |   (erro|r "This |
|000001a0| 66 69 6c 65 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |file was| compile|
|000001b0| 64 20 66 6f 72 20 45 6d | 61 63 73 20 31 39 22 29 |d for Em|acs 19")|
|000001c0| 29 0a 0a 28 64 65 66 61 | 6c 69 61 73 20 27 62 71 |)..(defa|lias 'bq|
|000001d0| 2d 70 75 73 68 20 27 28 | 6d 61 63 72 6f 20 2e 20 |-push '(|macro . |
|000001e0| 23 5b 28 76 20 6c 29 20 | 22 c0 09 c2 0b 09 45 45 |#[(v l) |".....EE|
|000001f0| 87 22 20 5b 73 65 74 71 | 20 6c 20 63 6f 6e 73 20 |." [setq| l cons |
|00000200| 76 5d 20 35 20 22 5c 0a | 50 75 73 68 65 73 20 65 |v] 5 "\.|Pushes e|
|00000210| 76 61 6c 75 61 74 65 64 | 20 66 69 72 73 74 20 66 |valuated| first f|
|00000220| 6f 72 6d 20 6f 6e 74 6f | 20 73 65 63 6f 6e 64 20 |orm onto| second |
|00000230| 75 6e 65 76 61 6c 75 61 | 74 65 64 20 6f 62 6a 65 |unevalua|ted obje|
|00000240| 63 74 0a 61 20 6c 69 73 | 74 2d 76 61 6c 75 65 20 |ct.a lis|t-value |
|00000250| 61 74 6f 6d 22 5d 29 29 | 0a 28 62 79 74 65 2d 63 |atom"]))|.(byte-c|
|00000260| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c0 c3 c4 5c 22 |ode "...|\"....\"|
|00000270| 88 c0 c5 c6 5c 22 87 22 | 20 5b 64 65 66 61 6c 69 |....\"."| [defali|
|00000280| 61 73 20 62 71 2d 63 61 | 61 72 20 28 6d 61 63 72 |as bq-ca|ar (macr|
|00000290| 6f 20 2e 20 23 5b 28 6c | 29 20 22 c0 89 09 44 44 |o . #[(l|) "...DD|
|000002a0| 87 22 20 5b 63 61 72 20 | 6c 5d 20 33 5d 29 20 62 |." [car |l] 3]) b|
|000002b0| 71 2d 63 61 64 72 20 28 | 6d 61 63 72 6f 20 2e 20 |q-cadr (|macro . |
|000002c0| 23 5b 28 6c 29 20 22 c0 | c1 5c 6e 44 44 87 22 20 |#[(l) ".|.\nDD." |
|000002d0| 5b 63 61 72 20 63 64 72 | 20 6c 5d 20 33 5d 29 20 |[car cdr| l] 3]) |
|000002e0| 62 71 2d 63 64 61 72 20 | 28 6d 61 63 72 6f 20 2e |bq-cdar |(macro .|
|000002f0| 20 23 5b 28 6c 29 20 22 | c0 c1 5c 6e 44 44 87 22 | #[(l) "|..\nDD."|
|00000300| 20 5b 63 64 72 20 63 61 | 72 20 6c 5d 20 33 5d 29 | [cdr ca|r l] 3])|
|00000310| 5d 20 33 29 0a 28 64 65 | 66 63 6f 6e 73 74 20 62 |] 3).(de|fconst b|
|00000320| 61 63 6b 71 75 6f 74 65 | 2d 75 6e 71 75 6f 74 65 |ackquote|-unquote|
|00000330| 20 28 71 75 6f 74 65 20 | 28 5c 2c 29 29 20 22 5c | (quote |(\,)) "\|
|00000340| 0a 2a 41 20 6c 69 73 74 | 20 6f 66 20 61 6c 6c 20 |.*A list| of all |
|00000350| 6f 62 6a 65 63 74 73 20 | 74 68 61 74 20 73 74 69 |objects |that sti|
|00000360| 6d 75 6c 61 74 65 20 75 | 6e 71 75 6f 74 69 6e 67 |mulate u|nquoting|
|00000370| 20 69 6e 20 60 2e 20 20 | 4d 65 6d 71 20 74 65 73 | in `.  |Memq tes|
|00000380| 74 2e 22 29 0a 28 64 65 | 66 63 6f 6e 73 74 20 62 |t.").(de|fconst b|
|00000390| 61 63 6b 71 75 6f 74 65 | 2d 73 70 6c 69 63 65 20 |ackquote|-splice |
|000003a0| 28 71 75 6f 74 65 20 28 | 5c 2c 40 29 29 20 22 5c |(quote (|\,@)) "\|
|000003b0| 0a 2a 41 20 6c 69 73 74 | 20 6f 66 20 61 6c 6c 20 |.*A list| of all |
|000003c0| 6f 62 6a 65 63 74 73 20 | 74 68 61 74 20 73 74 69 |objects |that sti|
|000003d0| 6d 75 6c 61 74 65 20 73 | 70 6c 69 63 69 6e 67 20 |mulate s|plicing |
|000003e0| 69 6e 20 60 2e 20 20 4d | 65 6d 71 20 74 65 73 74 |in `.  M|emq test|
|000003f0| 2e 22 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 5c |.").(def|alias '\|
|00000400| 60 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 66 |` '(macr|o . #[(f|
|00000410| 6f 72 6d 29 20 22 c0 09 | 21 87 22 20 5b 62 71 2d |orm) "..|!." [bq-|
|00000420| 6d 61 6b 65 2d 6d 61 6b | 65 72 20 66 6f 72 6d 5d |make-mak|er form]|
|00000430| 20 32 20 22 5c 0a 28 60 | 20 46 4f 52 4d 29 20 20 | 2 "\.(`| FORM)  |
|00000440| 69 73 20 61 20 6d 61 63 | 72 6f 20 74 68 61 74 20 |is a mac|ro that |
|00000450| 65 78 70 61 6e 64 73 20 | 74 6f 20 63 6f 64 65 20 |expands |to code |
|00000460| 74 6f 20 63 6f 6e 73 74 | 72 75 63 74 20 46 4f 52 |to const|ruct FOR|
|00000470| 4d 2e 0a 4e 6f 74 65 20 | 74 68 61 74 20 74 68 69 |M..Note |that thi|
|00000480| 73 20 69 73 20 76 65 72 | 79 20 73 6c 6f 77 20 69 |s is ver|y slow i|
|00000490| 6e 20 69 6e 74 65 72 70 | 72 65 74 65 64 20 63 6f |n interp|reted co|
|000004a0| 64 65 2c 20 62 75 74 20 | 66 61 73 74 20 69 66 20 |de, but |fast if |
|000004b0| 79 6f 75 20 63 6f 6d 70 | 69 6c 65 2e 0a 46 4f 52 |you comp|ile..FOR|
|000004c0| 4d 20 69 73 20 6f 6e 65 | 20 6f 72 20 6d 6f 72 65 |M is one| or more|
|000004d0| 20 6e 65 73 74 65 64 20 | 6c 69 73 74 73 2c 20 77 | nested |lists, w|
|000004e0| 68 69 63 68 20 61 72 65 | 20 60 61 6c 6d 6f 73 74 |hich are| `almost|
|000004f0| 20 71 75 6f 74 65 64 27 | 3a 0a 54 68 65 79 20 61 | quoted'|:.They a|
|00000500| 72 65 20 63 6f 70 69 65 | 64 20 72 65 63 75 72 73 |re copie|d recurs|
|00000510| 69 76 65 6c 79 2c 20 77 | 69 74 68 20 6e 6f 6e 2d |ively, w|ith non-|
|00000520| 6c 69 73 74 73 20 75 73 | 65 64 20 75 6e 63 68 61 |lists us|ed uncha|
|00000530| 6e 67 65 64 20 69 6e 20 | 74 68 65 20 63 6f 70 79 |nged in |the copy|
|00000540| 2e 0a 20 28 60 20 61 20 | 62 29 20 3d 3d 20 28 6c |.. (` a |b) == (l|
|00000550| 69 73 74 20 27 61 20 27 | 62 29 20 20 63 6f 6e 73 |ist 'a '|b)  cons|
|00000560| 74 72 75 63 74 73 20 61 | 20 6e 65 77 20 6c 69 73 |tructs a| new lis|
|00000570| 74 20 77 69 74 68 20 74 | 77 6f 20 65 6c 65 6d 65 |t with t|wo eleme|
|00000580| 6e 74 73 2c 20 60 61 27 | 20 61 6e 64 20 60 62 27 |nts, `a'| and `b'|
|00000590| 2e 0a 20 28 60 20 61 20 | 28 62 20 63 29 29 20 3d |.. (` a |(b c)) =|
|000005a0| 3d 20 28 6c 69 73 74 20 | 27 61 20 28 6c 69 73 74 |= (list |'a (list|
|000005b0| 20 27 62 20 27 63 29 29 | 20 20 63 6f 6e 73 74 72 | 'b 'c))|  constr|
|000005c0| 75 63 74 73 20 74 77 6f | 20 6e 65 73 74 65 64 20 |ucts two| nested |
|000005d0| 6e 65 77 20 6c 69 73 74 | 73 2e 0a 0a 48 6f 77 65 |new list|s...Howe|
|000005e0| 76 65 72 2c 20 63 65 72 | 74 61 69 6e 20 73 70 65 |ver, cer|tain spe|
|000005f0| 63 69 61 6c 20 6c 69 73 | 74 73 20 61 72 65 20 6e |cial lis|ts are n|
|00000600| 6f 74 20 63 6f 70 69 65 | 64 2e 20 20 54 68 65 79 |ot copie|d.  They|
|00000610| 20 73 70 65 63 69 66 79 | 20 73 75 62 73 74 69 74 | specify| substit|
|00000620| 75 74 69 6f 6e 2e 0a 4c | 69 73 74 73 20 74 68 61 |ution..L|ists tha|
|00000630| 74 20 6c 6f 6f 6b 20 6c | 69 6b 65 20 28 2c 20 45 |t look l|ike (, E|
|00000640| 58 50 29 20 61 72 65 20 | 65 76 61 6c 75 61 74 65 |XP) are |evaluate|
|00000650| 64 20 61 6e 64 20 74 68 | 65 20 72 65 73 75 6c 74 |d and th|e result|
|00000660| 20 69 73 20 73 75 62 73 | 74 69 74 75 74 65 64 2e | is subs|tituted.|
|00000670| 0a 20 28 60 20 61 20 28 | 2c 20 28 2b 20 78 20 35 |. (` a (|, (+ x 5|
|00000680| 29 29 29 20 3d 3d 20 28 | 6c 69 73 74 20 27 61 20 |))) == (|list 'a |
|00000690| 28 2b 20 78 20 35 29 29 | 0a 0a 45 6c 65 6d 65 6e |(+ x 5))|..Elemen|
|000006a0| 74 73 20 6f 66 20 74 68 | 65 20 66 6f 72 6d 20 28 |ts of th|e form (|
|000006b0| 2c 40 20 45 58 50 29 20 | 61 72 65 20 65 76 61 6c |,@ EXP) |are eval|
|000006c0| 75 61 74 65 64 20 61 6e | 64 20 74 68 65 6e 20 61 |uated an|d then a|
|000006d0| 6c 6c 20 74 68 65 20 65 | 6c 65 6d 65 6e 74 73 0a |ll the e|lements.|
|000006e0| 6f 66 20 74 68 65 20 72 | 65 73 75 6c 74 20 61 72 |of the r|esult ar|
|000006f0| 65 20 73 75 62 73 74 69 | 74 75 74 65 64 2e 20 20 |e substi|tuted.  |
|00000700| 54 68 69 73 20 72 65 73 | 75 6c 74 20 6d 75 73 74 |This res|ult must|
|00000710| 20 62 65 20 61 20 6c 69 | 73 74 3b 20 69 74 20 6d | be a li|st; it m|
|00000720| 61 79 0a 62 65 20 60 6e | 69 6c 27 2e 0a 0a 41 73 |ay.be `n|il'...As|
|00000730| 20 61 6e 20 65 78 61 6d | 70 6c 65 2c 20 61 20 73 | an exam|ple, a s|
|00000740| 69 6d 70 6c 65 20 6d 61 | 63 72 6f 20 60 70 75 73 |imple ma|cro `pus|
|00000750| 68 27 20 63 6f 75 6c 64 | 20 62 65 20 77 72 69 74 |h' could| be writ|
|00000760| 74 65 6e 3a 0a 20 20 20 | 28 64 65 66 6d 61 63 72 |ten:.   |(defmacr|
|00000770| 6f 20 70 75 73 68 20 28 | 76 20 6c 29 0a 20 20 20 |o push (|v l).   |
|00000780| 20 20 20 20 20 28 60 20 | 28 73 65 74 71 20 28 2c |     (` |(setq (,|
|00000790| 20 6c 29 20 28 63 6f 6e | 73 20 28 2c 40 20 28 6c | l) (con|s (,@ (l|
|000007a0| 69 73 74 20 76 20 6c 29 | 29 29 29 29 29 0a 6f 72 |ist v l)|))))).or|
|000007b0| 20 61 73 0a 20 20 20 28 | 64 65 66 6d 61 63 72 6f | as.   (|defmacro|
|000007c0| 20 70 75 73 68 20 28 76 | 20 6c 29 0a 20 20 20 20 | push (v| l).    |
|000007d0| 20 20 20 20 28 60 20 28 | 73 65 74 71 20 28 2c 20 |    (` (|setq (, |
|000007e0| 6c 29 20 28 63 6f 6e 73 | 20 28 2c 20 76 29 20 28 |l) (cons| (, v) (|
|000007f0| 2c 20 6c 29 29 29 29 29 | 0a 0a 4c 49 4d 49 54 41 |, l)))))|..LIMITA|
|00000800| 54 49 4f 4e 53 3a 20 5c | 22 64 6f 74 74 65 64 20 |TIONS: \|"dotted |
|00000810| 6c 69 73 74 73 5c 22 20 | 61 72 65 20 6e 6f 74 20 |lists\" |are not |
|00000820| 61 6c 6c 6f 77 65 64 20 | 69 6e 20 46 4f 52 4d 2e |allowed |in FORM.|
|00000830| 0a 54 68 65 20 75 6c 74 | 69 6d 61 74 65 20 63 64 |.The ult|imate cd|
|00000840| 72 20 6f 66 20 65 61 63 | 68 20 6c 69 73 74 20 73 |r of eac|h list s|
|00000850| 63 61 6e 6e 65 64 20 62 | 79 20 60 20 6d 75 73 74 |canned b|y ` must|
|00000860| 20 62 65 20 60 6e 69 6c | 27 2e 0a 28 54 68 69 73 | be `nil|'..(This|
|00000870| 20 64 6f 65 73 20 6e 6f | 74 20 61 70 70 6c 79 20 | does no|t apply |
|00000880| 74 6f 20 63 6f 6e 73 74 | 61 6e 74 73 20 69 6e 73 |to const|ants ins|
|00000890| 69 64 65 20 65 78 70 72 | 65 73 73 69 6f 6e 73 20 |ide expr|essions |
|000008a0| 74 6f 20 62 65 20 73 75 | 62 73 74 69 74 75 74 65 |to be su|bstitute|
|000008b0| 64 2e 29 0a 0a 53 75 62 | 73 74 69 74 75 74 69 6f |d.)..Sub|stitutio|
|000008c0| 6e 20 65 6c 65 6d 65 6e | 74 73 20 61 72 65 20 6e |n elemen|ts are n|
|000008d0| 6f 74 20 61 6c 6c 6f 77 | 65 64 20 61 73 20 74 68 |ot allow|ed as th|
|000008e0| 65 20 63 64 72 0a 6f 66 | 20 61 20 63 6f 6e 73 20 |e cdr.of| a cons |
|000008f0| 63 65 6c 6c 2e 20 20 46 | 6f 72 20 65 78 61 6d 70 |cell.  F|or examp|
|00000900| 6c 65 2c 20 28 60 20 28 | 41 20 2e 20 28 2c 20 42 |le, (` (|A . (, B|
|00000910| 29 29 29 20 64 6f 65 73 | 20 6e 6f 74 20 77 6f 72 |))) does| not wor|
|00000920| 6b 2e 0a 49 6e 73 74 65 | 61 64 2c 20 77 72 69 74 |k..Inste|ad, writ|
|00000930| 65 20 28 60 20 28 41 20 | 28 2c 40 20 42 29 29 29 |e (` (A |(,@ B)))|
|00000940| 2e 0a 0a 59 6f 75 20 63 | 61 6e 6e 6f 74 20 63 6f |...You c|annot co|
|00000950| 6e 73 74 72 75 63 74 20 | 76 65 63 74 6f 72 73 2c |nstruct |vectors,|
|00000960| 20 6f 6e 6c 79 20 6c 69 | 73 74 73 2e 20 20 56 65 | only li|sts.  Ve|
|00000970| 63 74 6f 72 73 20 61 72 | 65 20 74 72 65 61 74 65 |ctors ar|e treate|
|00000980| 64 20 61 73 0a 63 6f 6e | 73 74 61 6e 74 73 2e 0a |d as.con|stants..|
|00000990| 0a 42 45 57 41 52 45 20 | 42 45 57 41 52 45 20 42 |.BEWARE |BEWARE B|
|000009a0| 45 57 41 52 45 0a 49 6e | 63 6c 75 73 69 6f 6e 20 |EWARE.In|clusion |
|000009b0| 6f 66 20 28 2c 41 54 4f | 4d 29 20 72 61 74 68 65 |of (,ATO|M) rathe|
|000009c0| 72 20 74 68 61 6e 20 28 | 2c 20 41 54 4f 4d 29 0a |r than (|, ATOM).|
|000009d0| 6f 72 20 6f 66 20 28 2c | 40 41 54 4f 4d 29 20 72 |or of (,|@ATOM) r|
|000009e0| 61 74 68 65 72 20 74 68 | 61 6e 20 28 2c 40 20 41 |ather th|an (,@ A|
|000009f0| 54 4f 4d 29 0a 77 69 6c | 6c 20 72 65 73 75 6c 74 |TOM).wil|l result|
|00000a00| 20 69 6e 20 65 72 72 6f | 72 73 20 74 68 61 74 20 | in erro|rs that |
|00000a10| 77 69 6c 6c 20 73 68 6f | 77 20 75 70 20 76 65 72 |will sho|w up ver|
|00000a20| 79 20 6c 61 74 65 2e 22 | 5d 29 29 0a 28 64 65 66 |y late."|])).(def|
|00000a30| 61 6c 69 61 73 20 27 62 | 71 2d 6d 61 6b 65 2d 6d |alias 'b|q-make-m|
|00000a40| 61 6b 65 72 20 23 5b 28 | 66 6f 72 6d 29 20 22 c0 |aker #[(|form) ".|
|00000a50| c1 89 c0 1a 1b 1c 1d c6 | c7 c8 0e 09 21 5c 22 88 |........|....!\".|
|00000a60| 5c 6e 85 41 00 5c 6e ca | 3d 83 2c 00 5c 6e 0e 09 |\n.A.\n.|=.,.\n..|
|00000a70| 0d 9a 83 27 00 0e 09 82 | 28 00 0d 44 82 41 00 0d |...'....|(..D.A..|
|00000a80| 47 cb 55 83 3e 00 5c 6e | 0e 0c 9e 41 40 0d 21 82 |G.U.>.\n|...A@.!.|
|00000a90| 41 00 5c 6e 0d 42 2c 87 | 22 20 5b 6e 69 6c 20 30 |A.\n.B,.|" [nil 0|
|00000aa0| 20 73 74 61 74 65 20 65 | 63 20 71 63 20 74 61 69 | state e|c qc tai|
|00000ab0| 6c 6d 61 6b 65 72 20 6d | 61 70 63 61 72 20 62 71 |lmaker m|apcar bq|
|00000ac0| 2d 69 74 65 72 61 74 69 | 76 65 2d 6c 69 73 74 2d |-iterati|ve-list-|
|00000ad0| 62 75 69 6c 64 65 72 20 | 72 65 76 65 72 73 65 20 |builder |reverse |
|00000ae0| 66 6f 72 6d 20 71 75 6f | 74 65 20 31 20 62 71 2d |form quo|te 1 bq-|
|00000af0| 73 69 6e 67 6c 65 73 5d | 20 34 20 22 5c 0a 47 69 |singles]| 4 "\.Gi|
|00000b00| 76 65 6e 20 61 72 67 75 | 6d 65 6e 74 20 46 4f 52 |ven argu|ment FOR|
|00000b10| 4d 2c 20 61 20 60 6d 6f | 73 74 6c 79 20 71 75 6f |M, a `mo|stly quo|
|00000b20| 74 65 64 27 20 6f 62 6a | 65 63 74 2c 20 70 72 6f |ted' obj|ect, pro|
|00000b30| 64 75 63 65 73 20 61 20 | 6d 61 6b 65 72 2e 0a 53 |duces a |maker..S|
|00000b40| 65 65 20 62 61 63 6b 71 | 75 6f 74 65 2e 65 6c 20 |ee backq|uote.el |
|00000b50| 66 6f 72 20 64 65 74 61 | 69 6c 73 22 5d 29 0a 28 |for deta|ils"]).(|
|00000b60| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 11 c2 c3 c4 |byte-cod|e ".....|
|00000b70| 5c 22 88 c2 c5 c6 5c 22 | 88 c2 c7 c8 5c 22 88 c2 |\"....\"|....\"..|
|00000b80| c9 ca 5c 22 88 cb 16 0c | cd 16 0e cf 16 10 c2 d1 |..\"....|........|
|00000b90| d2 5c 22 88 c2 d3 d4 5c | 22 88 c2 d5 d6 5c 22 88 |.\"....\|"....\".|
|00000ba0| c2 d7 d8 5c 22 88 c2 d9 | da 5c 22 88 c2 db dc 5c |...\"...|.\"....\|
|00000bb0| 22 88 c2 dd de 5c 22 88 | c2 df e0 5c 22 88 c2 e1 |"....\".|...\"...|
|00000bc0| e2 5c 22 88 c2 e3 e4 5c | 22 88 c2 e5 e6 5c 22 88 |.\"....\|"....\".|
|00000bd0| c2 e7 e8 5c 22 88 c2 e9 | ea 5c 22 88 c2 eb ec 5c |...\"...|.\"....\|
|00000be0| 22 88 c2 ed ee 5c 22 88 | ef f0 21 87 22 20 5b 28 |"....\".|..!." [(|
|00000bf0| 28 71 75 6f 74 65 20 62 | 71 2d 71 75 6f 74 65 63 |(quote b|q-quotec|
|00000c00| 61 72 29 20 28 61 70 70 | 65 6e 64 20 63 61 72 29 |ar) (app|end car)|
|00000c10| 20 28 6c 69 73 74 20 62 | 71 2d 6d 61 6b 65 2d 6c | (list b|q-make-l|
|00000c20| 69 73 74 29 20 28 63 6f | 6e 73 20 62 71 2d 69 64 |ist) (co|ns bq-id|
|00000c30| 29 29 20 62 71 2d 73 69 | 6e 67 6c 65 73 20 64 65 |)) bq-si|ngles de|
|00000c40| 66 61 6c 69 61 73 20 62 | 71 2d 69 64 20 28 6c 61 |falias b|q-id (la|
|00000c50| 6d 62 64 61 20 28 78 29 | 20 78 29 20 62 71 2d 71 |mbda (x)| x) bq-q|
|00000c60| 75 6f 74 65 63 61 72 20 | 23 5b 28 78 29 20 22 c0 |uotecar |#[(x) ".|
|00000c70| 09 40 44 87 22 20 5b 71 | 75 6f 74 65 20 78 5d 20 |.@D." [q|uote x] |
|00000c80| 32 5d 20 62 71 2d 6d 61 | 6b 65 2d 6c 69 73 74 20 |2] bq-ma|ke-list |
|00000c90| 23 5b 28 78 29 20 22 c0 | 09 42 87 22 20 5b 6c 69 |#[(x) ".|.B." [li|
|00000ca0| 73 74 20 78 5d 20 32 5d | 20 62 71 2d 69 74 65 72 |st x] 2]| bq-iter|
|00000cb0| 61 74 69 76 65 2d 6c 69 | 73 74 2d 62 75 69 6c 64 |ative-li|st-build|
|00000cc0| 65 72 20 23 5b 28 66 6f | 72 6d 29 20 22 08 3a 84 |er #[(fo|rm) ".:.|
|00000cd0| 0d 00 09 5c 6e 9e 41 40 | 08 21 87 08 40 0b 3e 83 |...\n.A@|.!..@.>.|
|00000ce0| 1e 00 09 0c 9e 41 40 08 | 41 40 21 87 08 40 0d 3e |.....A@.|A@!..@.>|
|00000cf0| 83 30 00 09 0e 06 9e 41 | 40 08 41 40 21 87 c7 08 |.0.....A|@.A@!...|
|00000d00| 21 89 1e 08 3c 83 4f 00 | 0e 08 40 c9 3d 83 4f 00 |!...<.O.|..@.=.O.|
|00000d10| 09 5c 6e 9e 41 40 0e 08 | 41 40 21 82 57 00 09 0c |.\n.A@..|A@!.W...|
|00000d20| 9e 41 40 0e 08 21 29 87 | 22 20 5b 66 6f 72 6d 20 |.A@..!).|" [form |
|00000d30| 73 74 61 74 65 20 62 71 | 2d 71 75 6f 74 65 66 6e |state bq|-quotefn|
|00000d40| 73 20 62 61 63 6b 71 75 | 6f 74 65 2d 75 6e 71 75 |s backqu|ote-unqu|
|00000d50| 6f 74 65 20 62 71 2d 65 | 76 61 6c 66 6e 73 20 62 |ote bq-e|valfns b|
|00000d60| 61 63 6b 71 75 6f 74 65 | 2d 73 70 6c 69 63 65 20 |ackquote|-splice |
|00000d70| 62 71 2d 73 70 6c 69 63 | 65 66 6e 73 20 62 71 2d |bq-splic|efns bq-|
|00000d80| 6d 61 6b 65 2d 6d 61 6b | 65 72 20 6e 65 77 66 6f |make-mak|er newfo|
|00000d90| 72 6d 20 71 75 6f 74 65 | 5d 20 33 5d 20 28 28 6e |rm quote|] 3] ((n|
|00000da0| 69 6c 20 62 71 2d 73 70 | 6c 69 63 65 6e 69 6c 29 |il bq-sp|licenil)|
|00000db0| 20 28 61 70 70 65 6e 64 | 20 62 71 2d 73 70 6c 69 | (append| bq-spli|
|00000dc0| 63 65 61 70 70 65 6e 64 | 29 20 28 6c 69 73 74 20 |ceappend|) (list |
|00000dd0| 62 71 2d 73 70 6c 69 63 | 65 6c 69 73 74 29 20 28 |bq-splic|elist) (|
|00000de0| 71 75 6f 74 65 20 62 71 | 2d 73 70 6c 69 63 65 71 |quote bq|-spliceq|
|00000df0| 75 6f 74 65 29 20 28 63 | 6f 6e 73 20 62 71 2d 73 |uote) (c|ons bq-s|
|00000e00| 70 6c 69 63 65 63 6f 6e | 73 29 29 20 62 71 2d 73 |plicecon|s)) bq-s|
|00000e10| 70 6c 69 63 65 66 6e 73 | 20 28 28 6e 69 6c 20 62 |plicefns| ((nil b|
|00000e20| 71 2d 65 76 61 6c 6e 69 | 6c 29 20 28 61 70 70 65 |q-evalni|l) (appe|
|00000e30| 6e 64 20 62 71 2d 65 76 | 61 6c 61 70 70 65 6e 64 |nd bq-ev|alappend|
|00000e40| 29 20 28 6c 69 73 74 20 | 62 71 2d 65 76 61 6c 6c |) (list |bq-evall|
|00000e50| 69 73 74 29 20 28 71 75 | 6f 74 65 20 62 71 2d 65 |ist) (qu|ote bq-e|
|00000e60| 76 61 6c 71 75 6f 74 65 | 29 20 28 63 6f 6e 73 20 |valquote|) (cons |
|00000e70| 62 71 2d 65 76 61 6c 63 | 6f 6e 73 29 29 20 62 71 |bq-evalc|ons)) bq|
|00000e80| 2d 65 76 61 6c 66 6e 73 | 20 28 28 6e 69 6c 20 62 |-evalfns| ((nil b|
|00000e90| 71 2d 71 75 6f 74 65 6e | 69 6c 29 20 28 61 70 70 |q-quoten|il) (app|
|00000ea0| 65 6e 64 20 62 71 2d 71 | 75 6f 74 65 61 70 70 65 |end bq-q|uoteappe|
|00000eb0| 6e 64 29 20 28 6c 69 73 | 74 20 62 71 2d 71 75 6f |nd) (lis|t bq-quo|
|00000ec0| 74 65 6c 69 73 74 29 20 | 28 71 75 6f 74 65 20 62 |telist) |(quote b|
|00000ed0| 71 2d 71 75 6f 74 65 71 | 75 6f 74 65 29 20 28 63 |q-quoteq|uote) (c|
|00000ee0| 6f 6e 73 20 62 71 2d 71 | 75 6f 74 65 63 6f 6e 73 |ons bq-q|uotecons|
|00000ef0| 29 29 20 62 71 2d 71 75 | 6f 74 65 66 6e 73 20 62 |)) bq-qu|otefns b|
|00000f00| 71 2d 71 75 6f 74 65 63 | 6f 6e 73 20 23 5b 28 66 |q-quotec|ons #[(f|
|00000f10| 6f 72 6d 29 20 22 08 40 | 3c 83 1e 00 08 40 40 c1 |orm) ".@|<....@@.|
|00000f20| 3d 83 1e 00 c1 5c 6e 08 | 40 41 40 44 44 08 41 40 |=....\n.|@A@DD.A@|
|00000f30| 44 10 82 2a 00 c3 c1 5c | 6e 44 08 40 45 08 41 40 |D..*...\|nD.@E.A@|
|00000f40| 44 10 c4 89 15 87 22 20 | 5b 74 61 69 6c 6d 61 6b |D....." |[tailmak|
|00000f50| 65 72 20 71 75 6f 74 65 | 20 66 6f 72 6d 20 6c 69 |er quote| form li|
|00000f60| 73 74 20 61 70 70 65 6e | 64 20 73 74 61 74 65 5d |st appen|d state]|
|00000f70| 20 33 5d 20 62 71 2d 71 | 75 6f 74 65 71 75 6f 74 | 3] bq-q|uotequot|
|00000f80| 65 20 23 5b 28 66 6f 72 | 6d 29 20 22 08 09 42 89 |e #[(for|m) "..B.|
|00000f90| 11 87 22 20 5b 66 6f 72 | 6d 20 74 61 69 6c 6d 61 |.." [for|m tailma|
|00000fa0| 6b 65 72 5d 20 32 5d 20 | 62 71 2d 71 75 6f 74 65 |ker] 2] |bq-quote|
|00000fb0| 6c 69 73 74 20 23 5b 28 | 66 6f 72 6d 29 20 22 c0 |list #[(|form) ".|
|00000fc0| 09 44 5c 6e 42 89 12 87 | 22 20 5b 71 75 6f 74 65 |.D\nB...|" [quote|
|00000fd0| 20 66 6f 72 6d 20 74 61 | 69 6c 6d 61 6b 65 72 5d | form ta|ilmaker]|
|00000fe0| 20 32 5d 20 62 71 2d 71 | 75 6f 74 65 61 70 70 65 | 2] bq-q|uoteappe|
|00000ff0| 6e 64 20 23 5b 28 66 6f | 72 6d 29 20 22 08 3c 83 |nd #[(fo|rm) ".<.|
|00001000| 1e 00 08 40 3c 83 1e 00 | 08 40 40 c1 3d 83 1e 00 |...@<...|.@@.=...|
|00001010| 08 40 41 5c 6e 08 40 41 | 40 42 a0 87 c1 5c 6e 43 |.@A\n.@A|@B...\nC|
|00001020| 44 08 42 89 10 87 22 20 | 5b 74 61 69 6c 6d 61 6b |D.B..." |[tailmak|
|00001030| 65 72 20 71 75 6f 74 65 | 20 66 6f 72 6d 5d 20 33 |er quote| form] 3|
|00001040| 5d 20 62 71 2d 71 75 6f | 74 65 6e 69 6c 20 23 5b |] bq-quo|tenil #[|
|00001050| 28 66 6f 72 6d 29 20 22 | 08 43 11 c2 89 13 87 22 |(form) "|.C....."|
|00001060| 20 5b 66 6f 72 6d 20 74 | 61 69 6c 6d 61 6b 65 72 | [form t|ailmaker|
|00001070| 20 71 75 6f 74 65 20 73 | 74 61 74 65 5d 20 32 5d | quote s|tate] 2]|
|00001080| 20 62 71 2d 65 76 61 6c | 63 6f 6e 73 20 23 5b 28 | bq-eval|cons #[(|
|00001090| 66 6f 72 6d 29 20 22 c0 | 09 5c 6e 40 45 5c 6e 41 |form) ".|.\n@E\nA|
|000010a0| 40 44 12 c3 89 14 87 22 | 20 5b 6c 69 73 74 20 66 |@D....."| [list f|
|000010b0| 6f 72 6d 20 74 61 69 6c | 6d 61 6b 65 72 20 61 70 |orm tail|maker ap|
|000010c0| 70 65 6e 64 20 73 74 61 | 74 65 5d 20 33 5d 20 62 |pend sta|te] 3] b|
|000010d0| 71 2d 65 76 61 6c 71 75 | 6f 74 65 20 23 5b 28 66 |q-evalqu|ote #[(f|
|000010e0| 6f 72 6d 29 20 22 08 47 | c1 57 83 13 00 5c 6e c3 |orm) ".G|.W...\n.|
|000010f0| c4 08 5c 22 42 10 c5 89 | 16 06 87 c5 5c 6e 44 c7 |..\"B...|....\nD.|
|00001100| 08 44 44 10 c8 89 16 06 | 87 22 20 5b 74 61 69 6c |.DD.....|." [tail|
|00001110| 6d 61 6b 65 72 20 33 20 | 66 6f 72 6d 20 6d 61 70 |maker 3 |form map|
|00001120| 63 61 72 20 23 5b 28 78 | 29 20 22 c0 09 44 87 22 |car #[(x|) "..D."|
|00001130| 20 5b 71 75 6f 74 65 20 | 78 5d 20 32 5d 20 6c 69 | [quote |x] 2] li|
|00001140| 73 74 20 73 74 61 74 65 | 20 71 75 6f 74 65 20 61 |st state| quote a|
|00001150| 70 70 65 6e 64 5d 20 34 | 5d 20 62 71 2d 65 76 61 |ppend] 4|] bq-eva|
|00001160| 6c 6c 69 73 74 20 23 5b | 28 66 6f 72 6d 29 20 22 |llist #[|(form) "|
|00001170| 08 09 42 89 11 87 22 20 | 5b 66 6f 72 6d 20 74 61 |..B..." |[form ta|
|00001180| 69 6c 6d 61 6b 65 72 5d | 20 32 5d 20 62 71 2d 65 |ilmaker]| 2] bq-e|
|00001190| 76 61 6c 61 70 70 65 6e | 64 20 23 5b 28 66 6f 72 |valappen|d #[(for|
|000011a0| 6d 29 20 22 08 3c 83 1c | 00 08 40 3c 83 1c 00 08 |m) ".<..|..@<....|
|000011b0| 40 40 c1 3d 83 1c 00 08 | 40 5c 6e 08 40 41 42 a1 |@@.=....|@\n.@AB.|
|000011c0| 87 08 47 c3 55 83 2b 00 | 5c 6e 08 42 10 c4 89 15 |..G.U.+.|\n.B....|
|000011d0| 87 c1 5c 6e 44 08 42 89 | 10 87 22 20 5b 74 61 69 |..\nD.B.|.." [tai|
|000011e0| 6c 6d 61 6b 65 72 20 6c | 69 73 74 20 66 6f 72 6d |lmaker l|ist form|
|000011f0| 20 31 20 63 6f 6e 73 20 | 73 74 61 74 65 5d 20 33 | 1 cons |state] 3|
|00001200| 5d 20 62 71 2d 65 76 61 | 6c 6e 69 6c 20 23 5b 28 |] bq-eva|lnil #[(|
|00001210| 66 6f 72 6d 29 20 22 08 | 43 11 c2 89 13 87 22 20 |form) ".|C....." |
|00001220| 5b 66 6f 72 6d 20 74 61 | 69 6c 6d 61 6b 65 72 20 |[form ta|ilmaker |
|00001230| 6c 69 73 74 20 73 74 61 | 74 65 5d 20 32 5d 20 62 |list sta|te] 2] b|
|00001240| 71 2d 73 70 6c 69 63 65 | 63 6f 6e 73 20 23 5b 28 |q-splice|cons #[(|
|00001250| 66 6f 72 6d 29 20 22 08 | c1 5c 6e 40 5c 6e 41 40 |form) ".|.\n@\nA@|
|00001260| 45 44 12 c3 89 14 87 22 | 20 5b 66 6f 72 6d 20 63 |ED....."| [form c|
|00001270| 6f 6e 73 20 74 61 69 6c | 6d 61 6b 65 72 20 61 70 |ons tail|maker ap|
|00001280| 70 65 6e 64 20 73 74 61 | 74 65 5d 20 34 5d 20 62 |pend sta|te] 4] b|
|00001290| 71 2d 73 70 6c 69 63 65 | 71 75 6f 74 65 20 23 5b |q-splice|quote #[|
|000012a0| 28 66 6f 72 6d 29 20 22 | 08 c1 5c 6e 44 44 12 c3 |(form) "|..\nDD..|
|000012b0| 89 14 87 22 20 5b 66 6f | 72 6d 20 71 75 6f 74 65 |..." [fo|rm quote|
|000012c0| 20 74 61 69 6c 6d 61 6b | 65 72 20 61 70 70 65 6e | tailmak|er appen|
|000012d0| 64 20 73 74 61 74 65 5d | 20 33 5d 20 62 71 2d 73 |d state]| 3] bq-s|
|000012e0| 70 6c 69 63 65 6c 69 73 | 74 20 23 5b 28 66 6f 72 |plicelis|t #[(for|
|000012f0| 6d 29 20 22 08 c1 5c 6e | 42 44 12 c3 89 14 87 22 |m) "..\n|BD....."|
|00001300| 20 5b 66 6f 72 6d 20 6c | 69 73 74 20 74 61 69 6c | [form l|ist tail|
|00001310| 6d 61 6b 65 72 20 61 70 | 70 65 6e 64 20 73 74 61 |maker ap|pend sta|
|00001320| 74 65 5d 20 33 5d 20 62 | 71 2d 73 70 6c 69 63 65 |te] 3] b|q-splice|
|00001330| 61 70 70 65 6e 64 20 23 | 5b 28 66 6f 72 6d 29 20 |append #|[(form) |
|00001340| 22 08 09 42 89 11 87 22 | 20 5b 66 6f 72 6d 20 74 |"..B..."| [form t|
|00001350| 61 69 6c 6d 61 6b 65 72 | 5d 20 32 5d 20 62 71 2d |ailmaker|] 2] bq-|
|00001360| 73 70 6c 69 63 65 6e 69 | 6c 20 23 5b 28 66 6f 72 |spliceni|l #[(for|
|00001370| 6d 29 20 22 c0 11 5c 6e | 43 89 13 87 22 20 5b 61 |m) "..\n|C..." [a|
|00001380| 70 70 65 6e 64 20 73 74 | 61 74 65 20 66 6f 72 6d |ppend st|ate form|
|00001390| 20 74 61 69 6c 6d 61 6b | 65 72 5d 20 32 5d 20 70 | tailmak|er] 2] p|
|000013a0| 72 6f 76 69 64 65 20 62 | 61 63 6b 71 75 6f 74 65 |rovide b|ackquote|
|000013b0| 5d 20 33 29 0a          |                         |] 3).   |        |
+--------+-------------------------+-------------------------+--------+--------+