/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / misc / emac1858.lha / emacs-18.58 / lisp / backquote.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00000010| 20 62 61 63 6b 71 75 6f | 74 65 29 29 0a 0a 28 64 | backquo|te))..(d|
|00000020| 65 66 6d 61 63 72 6f 20 | 62 71 2d 70 75 73 68 20 |efmacro |bq-push |
|00000030| 28 76 20 6c 29 20 22 50 | 75 73 68 65 73 20 65 76 |(v l) "P|ushes ev|
|00000040| 61 6c 75 61 74 65 64 20 | 66 69 72 73 74 20 66 6f |aluated |first fo|
|00000050| 72 6d 20 6f 6e 74 6f 20 | 73 65 63 6f 6e 64 20 75 |rm onto |second u|
|00000060| 6e 65 76 61 6c 75 61 74 | 65 64 20 6f 62 6a 65 63 |nevaluat|ed objec|
|00000070| 74 0a 61 20 6c 69 73 74 | 2d 76 61 6c 75 65 20 61 |t.a list|-value a|
|00000080| 74 6f 6d 22 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |tom" (by|te-code |
|00000090| 22 c2 08 c3 09 08 45 45 | 87 22 20 5b 6c 20 76 20 |".....EE|." [l v |
|000000a0| 73 65 74 71 20 63 6f 6e | 73 5d 20 35 29 29 0a 0a |setq con|s] 5))..|
|000000b0| 28 64 65 66 6d 61 63 72 | 6f 20 62 71 2d 63 61 61 |(defmacr|o bq-caa|
|000000c0| 72 20 28 6c 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |r (l) (b|yte-code|
|000000d0| 20 22 c1 c1 08 44 44 87 | 22 20 5b 6c 20 63 61 72 | "...DD.|" [l car|
|000000e0| 5d 20 33 29 29 0a 0a 28 | 64 65 66 6d 61 63 72 6f |] 3))..(|defmacro|
|000000f0| 20 62 71 2d 63 61 64 72 | 20 28 6c 29 20 28 62 79 | bq-cadr| (l) (by|
|00000100| 74 65 2d 63 6f 64 65 20 | 22 c1 c2 08 44 44 87 22 |te-code |"...DD."|
|00000110| 20 5b 6c 20 63 61 72 20 | 63 64 72 5d 20 33 29 29 | [l car |cdr] 3))|
|00000120| 0a 0a 28 64 65 66 6d 61 | 63 72 6f 20 62 71 2d 63 |..(defma|cro bq-c|
|00000130| 64 61 72 20 28 6c 29 20 | 28 62 79 74 65 2d 63 6f |dar (l) |(byte-co|
|00000140| 64 65 20 22 c1 c2 08 44 | 44 87 22 20 5b 6c 20 63 |de "...D|D." [l c|
|00000150| 64 72 20 63 61 72 5d 20 | 33 29 29 0a 0a 28 64 65 |dr car] |3))..(de|
|00000160| 66 63 6f 6e 73 74 20 62 | 61 63 6b 71 75 6f 74 65 |fconst b|ackquote|
|00000170| 2d 75 6e 71 75 6f 74 65 | 20 28 71 75 6f 74 65 20 |-unquote| (quote |
|00000180| 28 5c 2c 29 29 20 22 5c | 0a 2a 41 20 6c 69 73 74 |(\,)) "\|.*A list|
|00000190| 20 6f 66 20 61 6c 6c 20 | 6f 62 6a 65 63 74 73 20 | of all |objects |
|000001a0| 74 68 61 74 20 73 74 69 | 6d 75 6c 61 74 65 20 75 |that sti|mulate u|
|000001b0| 6e 71 75 6f 74 69 6e 67 | 20 69 6e 20 60 2e 20 20 |nquoting| in `.  |
|000001c0| 4d 65 6d 71 20 74 65 73 | 74 2e 22 29 0a 0a 28 64 |Memq tes|t.")..(d|
|000001d0| 65 66 63 6f 6e 73 74 20 | 62 61 63 6b 71 75 6f 74 |efconst |backquot|
|000001e0| 65 2d 73 70 6c 69 63 65 | 20 28 71 75 6f 74 65 20 |e-splice| (quote |
|000001f0| 28 5c 2c 40 29 29 20 22 | 5c 0a 2a 41 20 6c 69 73 |(\,@)) "|\.*A lis|
|00000200| 74 20 6f 66 20 61 6c 6c | 20 6f 62 6a 65 63 74 73 |t of all| objects|
|00000210| 20 74 68 61 74 20 73 74 | 69 6d 75 6c 61 74 65 20 | that st|imulate |
|00000220| 73 70 6c 69 63 69 6e 67 | 20 69 6e 20 60 2e 20 20 |splicing| in `.  |
|00000230| 4d 65 6d 71 20 74 65 73 | 74 2e 22 29 0a 0a 28 64 |Memq tes|t.")..(d|
|00000240| 65 66 6d 61 63 72 6f 20 | 5c 60 20 28 66 6f 72 6d |efmacro |\` (form|
|00000250| 29 20 22 28 60 20 46 4f | 52 4d 29 20 45 78 70 61 |) "(` FO|RM) Expa|
|00000260| 6e 64 73 20 74 6f 20 61 | 20 66 6f 72 6d 20 74 68 |nds to a| form th|
|00000270| 61 74 20 77 69 6c 6c 20 | 67 65 6e 65 72 61 74 65 |at will |generate|
|00000280| 20 46 4f 52 4d 2e 0a 46 | 4f 52 4d 20 69 73 20 60 | FORM..F|ORM is `|
|00000290| 61 6c 6d 6f 73 74 20 71 | 75 6f 74 65 64 27 20 2d |almost q|uoted' -|
|000002a0| 2d 20 73 65 65 20 62 61 | 63 6b 71 75 6f 74 65 2e |- see ba|ckquote.|
|000002b0| 65 6c 20 66 6f 72 20 61 | 20 64 65 73 63 72 69 70 |el for a| descrip|
|000002c0| 74 69 6f 6e 2e 22 20 28 | 62 79 74 65 2d 63 6f 64 |tion." (|byte-cod|
|000002d0| 65 20 22 c1 08 21 87 22 | 20 5b 66 6f 72 6d 20 62 |e "..!."| [form b|
|000002e0| 71 2d 6d 61 6b 65 2d 6d | 61 6b 65 72 5d 20 32 29 |q-make-m|aker] 2)|
|000002f0| 29 0a 0a 28 64 65 66 75 | 6e 20 62 71 2d 6d 61 6b |)..(defu|n bq-mak|
|00000300| 65 2d 6d 61 6b 65 72 20 | 28 66 6f 72 6d 29 20 22 |e-maker |(form) "|
|00000310| 5c 0a 47 69 76 65 6e 20 | 6f 6e 65 20 61 72 67 75 |\.Given |one argu|
|00000320| 6d 65 6e 74 2c 20 61 20 | 60 6d 6f 73 74 6c 79 20 |ment, a |`mostly |
|00000330| 71 75 6f 74 65 64 27 20 | 6f 62 6a 65 63 74 2c 20 |quoted' |object, |
|00000340| 70 72 6f 64 75 63 65 73 | 20 61 20 6d 61 6b 65 72 |produces| a maker|
|00000350| 2e 0a 53 65 65 20 62 61 | 63 6b 71 75 6f 74 65 2e |..See ba|ckquote.|
|00000360| 65 6c 20 66 6f 72 20 64 | 65 74 61 69 6c 73 22 20 |el for d|etails" |
|00000370| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c4 c8 c8 c4 |(byte-co|de "....|
|00000380| 1b 1a 19 18 c9 ca cb 0d | 21 5c 22 88 0b 85 36 00 |........|!\"...6.|
|00000390| 0b cc 3d 83 1f 00 0b 08 | 44 82 36 00 08 47 cd 55 |..=.....|D.6..G.U|
|000003a0| 83 33 00 ce cf 0b 0e 06 | 5c 22 41 40 08 5c 22 82 |.3......|\"A@.\".|
|000003b0| 36 00 0b 08 42 2c 87 22 | 20 5b 74 61 69 6c 6d 61 |6...B,."| [tailma|
|000003c0| 6b 65 72 20 71 63 20 65 | 63 20 73 74 61 74 65 20 |ker qc e|c state |
|000003d0| 6e 69 6c 20 66 6f 72 6d | 20 62 71 2d 73 69 6e 67 |nil form| bq-sing|
|000003e0| 6c 65 73 20 74 20 30 20 | 6d 61 70 63 61 72 20 62 |les t 0 |mapcar b|
|000003f0| 71 2d 69 74 65 72 61 74 | 69 76 65 2d 6c 69 73 74 |q-iterat|ive-list|
|00000400| 2d 62 75 69 6c 64 65 72 | 20 72 65 76 65 72 73 65 |-builder| reverse|
|00000410| 20 71 75 6f 74 65 20 31 | 20 66 75 6e 63 61 6c 6c | quote 1| funcall|
|00000420| 20 61 73 73 71 5d 20 36 | 29 29 0a 0a 28 64 65 66 | assq] 6|))..(def|
|00000430| 63 6f 6e 73 74 20 62 71 | 2d 73 69 6e 67 6c 65 73 |const bq|-singles|
|00000440| 20 28 71 75 6f 74 65 20 | 28 28 71 75 6f 74 65 20 | (quote |((quote |
|00000450| 62 71 2d 71 75 6f 74 65 | 63 61 72 29 20 28 61 70 |bq-quote|car) (ap|
|00000460| 70 65 6e 64 20 63 61 72 | 29 20 28 6c 69 73 74 20 |pend car|) (list |
|00000470| 62 71 2d 6d 61 6b 65 2d | 6c 69 73 74 29 20 28 63 |bq-make-|list) (c|
|00000480| 6f 6e 73 20 62 71 2d 69 | 64 29 29 29 29 0a 0a 28 |ons bq-i|d))))..(|
|00000490| 64 65 66 75 6e 20 62 71 | 2d 69 64 20 28 78 29 20 |defun bq|-id (x) |
|000004a0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 87 22 20 |(byte-co|de ".." |
|000004b0| 5b 78 5d 20 31 29 29 0a | 0a 28 64 65 66 75 6e 20 |[x] 1)).|.(defun |
|000004c0| 62 71 2d 71 75 6f 74 65 | 63 61 72 20 28 78 29 20 |bq-quote|car (x) |
|000004d0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 08 40 44 |(byte-co|de "..@D|
|000004e0| 87 22 20 5b 78 20 71 75 | 6f 74 65 5d 20 32 29 29 |." [x qu|ote] 2))|
|000004f0| 0a 0a 28 64 65 66 75 6e | 20 62 71 2d 6d 61 6b 65 |..(defun| bq-make|
|00000500| 2d 6c 69 73 74 20 28 78 | 29 20 28 62 79 74 65 2d |-list (x|) (byte-|
|00000510| 63 6f 64 65 20 22 c1 08 | 42 87 22 20 5b 78 20 6c |code "..|B." [x l|
|00000520| 69 73 74 5d 20 32 29 29 | 0a 0a 28 64 65 66 75 6e |ist] 2))|..(defun|
|00000530| 20 62 71 2d 69 74 65 72 | 61 74 69 76 65 2d 6c 69 | bq-iter|ative-li|
|00000540| 73 74 2d 62 75 69 6c 64 | 65 72 20 28 66 6f 72 6d |st-build|er (form|
|00000550| 29 20 22 5c 0a 43 61 6c | 6c 65 64 20 62 79 20 62 |) "\.Cal|led by b|
|00000560| 71 2d 6d 61 6b 65 2d 6d | 61 6b 65 72 2e 20 20 41 |q-make-m|aker.  A|
|00000570| 64 64 73 20 61 20 6e 65 | 77 20 69 74 65 6d 20 66 |dds a ne|w item f|
|00000580| 6f 72 6d 20 74 6f 20 74 | 61 69 6c 6d 61 6b 65 72 |orm to t|ailmaker|
|00000590| 2c 20 0a 63 68 61 6e 67 | 69 6e 67 20 73 74 61 74 |, .chang|ing stat|
|000005a0| 65 20 69 66 20 6e 65 65 | 64 20 62 65 2c 20 73 6f |e if nee|d be, so|
|000005b0| 20 74 61 69 6c 6d 61 6b | 65 72 20 61 6e 64 20 73 | tailmak|er and s|
|000005c0| 74 61 74 65 20 63 6f 6e | 73 74 69 74 75 74 65 20 |tate con|stitute |
|000005d0| 61 20 72 65 63 69 70 69 | 65 0a 66 6f 72 20 6d 61 |a recipi|e.for ma|
|000005e0| 6b 69 6e 67 20 74 68 65 | 20 6c 69 73 74 20 73 6f |king the| list so|
|000005f0| 20 66 61 72 2e 22 20 28 | 62 79 74 65 2d 63 6f 64 | far." (|byte-cod|
|00000600| 65 20 22 c9 08 21 83 12 | 00 ca cb 09 0a 5c 22 41 |e "..!..|.....\"A|
|00000610| 40 08 5c 22 82 6a 00 08 | 40 0b 3e 83 27 00 ca cb |@.\".j..|@.>.'...|
|00000620| 09 0c 5c 22 41 40 08 41 | 40 5c 22 82 6a 00 08 40 |..\"A@.A|@\".j..@|
|00000630| 0d 3e 83 3d 00 ca cb 09 | 0e 06 5c 22 41 40 08 41 |.>.=....|..\"A@.A|
|00000640| 40 5c 22 82 6a 00 cc 08 | 21 1e 08 0e 08 3c 85 4d |@\".j...|!....<.M|
|00000650| 00 0e 08 40 cd 3d 83 5f | 00 ca cb 09 0a 5c 22 41 |...@.=._|.....\"A|
|00000660| 40 0e 08 41 40 5c 22 82 | 69 00 ca cb 09 0c 5c 22 |@..A@\".|i.....\"|
|00000670| 41 40 0e 08 5c 22 29 87 | 22 20 5b 66 6f 72 6d 20 |A@..\").|" [form |
|00000680| 73 74 61 74 65 20 62 71 | 2d 71 75 6f 74 65 66 6e |state bq|-quotefn|
|00000690| 73 20 62 61 63 6b 71 75 | 6f 74 65 2d 75 6e 71 75 |s backqu|ote-unqu|
|000006a0| 6f 74 65 20 62 71 2d 65 | 76 61 6c 66 6e 73 20 62 |ote bq-e|valfns b|
|000006b0| 61 63 6b 71 75 6f 74 65 | 2d 73 70 6c 69 63 65 20 |ackquote|-splice |
|000006c0| 62 71 2d 73 70 6c 69 63 | 65 66 6e 73 20 74 20 6e |bq-splic|efns t n|
|000006d0| 65 77 66 6f 72 6d 20 61 | 74 6f 6d 20 66 75 6e 63 |ewform a|tom func|
|000006e0| 61 6c 6c 20 61 73 73 71 | 20 62 71 2d 6d 61 6b 65 |all assq| bq-make|
|000006f0| 2d 6d 61 6b 65 72 20 71 | 75 6f 74 65 5d 20 31 34 |-maker q|uote] 14|
|00000700| 29 29 0a 0a 28 64 65 66 | 63 6f 6e 73 74 20 62 71 |))..(def|const bq|
|00000710| 2d 73 70 6c 69 63 65 66 | 6e 73 20 28 71 75 6f 74 |-splicef|ns (quot|
|00000720| 65 20 28 28 6e 69 6c 20 | 62 71 2d 73 70 6c 69 63 |e ((nil |bq-splic|
|00000730| 65 6e 69 6c 29 20 28 61 | 70 70 65 6e 64 20 62 71 |enil) (a|ppend bq|
|00000740| 2d 73 70 6c 69 63 65 61 | 70 70 65 6e 64 29 20 28 |-splicea|ppend) (|
|00000750| 6c 69 73 74 20 62 71 2d | 73 70 6c 69 63 65 6c 69 |list bq-|spliceli|
|00000760| 73 74 29 20 28 71 75 6f | 74 65 20 62 71 2d 73 70 |st) (quo|te bq-sp|
|00000770| 6c 69 63 65 71 75 6f 74 | 65 29 20 28 63 6f 6e 73 |licequot|e) (cons|
|00000780| 20 62 71 2d 73 70 6c 69 | 63 65 63 6f 6e 73 29 29 | bq-spli|cecons))|
|00000790| 29 29 0a 0a 28 64 65 66 | 63 6f 6e 73 74 20 62 71 |))..(def|const bq|
|000007a0| 2d 65 76 61 6c 66 6e 73 | 20 28 71 75 6f 74 65 20 |-evalfns| (quote |
|000007b0| 28 28 6e 69 6c 20 62 71 | 2d 65 76 61 6c 6e 69 6c |((nil bq|-evalnil|
|000007c0| 29 20 28 61 70 70 65 6e | 64 20 62 71 2d 65 76 61 |) (appen|d bq-eva|
|000007d0| 6c 61 70 70 65 6e 64 29 | 20 28 6c 69 73 74 20 62 |lappend)| (list b|
|000007e0| 71 2d 65 76 61 6c 6c 69 | 73 74 29 20 28 71 75 6f |q-evalli|st) (quo|
|000007f0| 74 65 20 62 71 2d 65 76 | 61 6c 71 75 6f 74 65 29 |te bq-ev|alquote)|
|00000800| 20 28 63 6f 6e 73 20 62 | 71 2d 65 76 61 6c 63 6f | (cons b|q-evalco|
|00000810| 6e 73 29 29 29 29 0a 0a | 28 64 65 66 63 6f 6e 73 |ns))))..|(defcons|
|00000820| 74 20 62 71 2d 71 75 6f | 74 65 66 6e 73 20 28 71 |t bq-quo|tefns (q|
|00000830| 75 6f 74 65 20 28 28 6e | 69 6c 20 62 71 2d 71 75 |uote ((n|il bq-qu|
|00000840| 6f 74 65 6e 69 6c 29 20 | 28 61 70 70 65 6e 64 20 |otenil) |(append |
|00000850| 62 71 2d 71 75 6f 74 65 | 61 70 70 65 6e 64 29 20 |bq-quote|append) |
|00000860| 28 6c 69 73 74 20 62 71 | 2d 71 75 6f 74 65 6c 69 |(list bq|-quoteli|
|00000870| 73 74 29 20 28 71 75 6f | 74 65 20 62 71 2d 71 75 |st) (quo|te bq-qu|
|00000880| 6f 74 65 71 75 6f 74 65 | 29 20 28 63 6f 6e 73 20 |otequote|) (cons |
|00000890| 62 71 2d 71 75 6f 74 65 | 63 6f 6e 73 29 29 29 29 |bq-quote|cons))))|
|000008a0| 0a 0a 28 64 65 66 75 6e | 20 62 71 2d 71 75 6f 74 |..(defun| bq-quot|
|000008b0| 65 63 6f 6e 73 20 28 66 | 6f 72 6d 29 20 28 62 79 |econs (f|orm) (by|
|000008c0| 74 65 2d 63 6f 64 65 20 | 22 08 40 3c 85 0b 00 08 |te-code |".@<....|
|000008d0| 40 40 c3 3d 83 1f 00 c3 | 09 08 40 41 40 44 44 08 |@@.=....|..@A@DD.|
|000008e0| 41 40 44 89 10 82 2c 00 | c4 c3 09 44 08 40 45 08 |A@D...,.|...D.@E.|
|000008f0| 41 40 44 89 10 88 c5 89 | 12 87 22 20 5b 74 61 69 |A@D.....|.." [tai|
|00000900| 6c 6d 61 6b 65 72 20 66 | 6f 72 6d 20 73 74 61 74 |lmaker f|orm stat|
|00000910| 65 20 71 75 6f 74 65 20 | 6c 69 73 74 20 61 70 70 |e quote |list app|
|00000920| 65 6e 64 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |end] 3))|..(defun|
|00000930| 20 62 71 2d 71 75 6f 74 | 65 71 75 6f 74 65 20 28 | bq-quot|equote (|
|00000940| 66 6f 72 6d 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |form) (b|yte-code|
|00000950| 20 22 09 08 42 89 10 87 | 22 20 5b 74 61 69 6c 6d | "..B...|" [tailm|
|00000960| 61 6b 65 72 20 66 6f 72 | 6d 5d 20 32 29 29 0a 0a |aker for|m] 2))..|
|00000970| 28 64 65 66 75 6e 20 62 | 71 2d 71 75 6f 74 65 6c |(defun b|q-quotel|
|00000980| 69 73 74 20 28 66 6f 72 | 6d 29 20 28 62 79 74 65 |ist (for|m) (byte|
|00000990| 2d 63 6f 64 65 20 22 c2 | 09 44 08 42 89 10 87 22 |-code ".|.D.B..."|
|000009a0| 20 5b 74 61 69 6c 6d 61 | 6b 65 72 20 66 6f 72 6d | [tailma|ker form|
|000009b0| 20 71 75 6f 74 65 5d 20 | 32 29 29 0a 0a 28 64 65 | quote] |2))..(de|
|000009c0| 66 75 6e 20 62 71 2d 71 | 75 6f 74 65 61 70 70 65 |fun bq-q|uoteappe|
|000009d0| 6e 64 20 28 66 6f 72 6d | 29 20 28 62 79 74 65 2d |nd (form|) (byte-|
|000009e0| 63 6f 64 65 20 22 08 3c | 85 10 00 08 40 3c 85 10 |code ".<|....@<..|
|000009f0| 00 08 40 40 c3 3d 83 21 | 00 c4 08 40 41 09 08 40 |..@@.=.!|...@A..@|
|00000a00| 41 40 42 5c 22 82 29 00 | c3 09 43 44 08 42 89 10 |A@B\".).|..CD.B..|
|00000a10| 87 22 20 5b 74 61 69 6c | 6d 61 6b 65 72 20 66 6f |." [tail|maker fo|
|00000a20| 72 6d 20 74 20 71 75 6f | 74 65 20 72 70 6c 61 63 |rm t quo|te rplac|
|00000a30| 61 5d 20 34 29 29 0a 0a | 28 64 65 66 75 6e 20 62 |a] 4))..|(defun b|
|00000a40| 71 2d 71 75 6f 74 65 6e | 69 6c 20 28 66 6f 72 6d |q-quoten|il (form|
|00000a50| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 09 43 |) (byte-|code ".C|
|00000a60| 89 10 88 c3 89 12 87 22 | 20 5b 74 61 69 6c 6d 61 |......."| [tailma|
|00000a70| 6b 65 72 20 66 6f 72 6d | 20 73 74 61 74 65 20 71 |ker form| state q|
|00000a80| 75 6f 74 65 5d 20 32 29 | 29 0a 0a 28 64 65 66 75 |uote] 2)|)..(defu|
|00000a90| 6e 20 62 71 2d 65 76 61 | 6c 63 6f 6e 73 20 28 66 |n bq-eva|lcons (f|
|00000aa0| 6f 72 6d 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |orm) (by|te-code |
|00000ab0| 22 c3 09 08 40 45 08 41 | 40 44 89 10 88 c4 89 12 |"...@E.A|@D......|
|00000ac0| 87 22 20 5b 74 61 69 6c | 6d 61 6b 65 72 20 66 6f |." [tail|maker fo|
|00000ad0| 72 6d 20 73 74 61 74 65 | 20 6c 69 73 74 20 61 70 |rm state| list ap|
|00000ae0| 70 65 6e 64 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |pend] 3)|)..(defu|
|00000af0| 6e 20 62 71 2d 65 76 61 | 6c 71 75 6f 74 65 20 28 |n bq-eva|lquote (|
|00000b00| 66 6f 72 6d 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |form) (b|yte-code|
|00000b10| 20 22 08 47 c4 57 83 16 | 00 09 c5 c6 08 5c 22 42 | ".G.W..|.....\"B|
|00000b20| 89 10 88 c7 89 12 82 23 | 00 c7 09 44 c8 08 44 44 |.......#|...D..DD|
|00000b30| 89 10 88 c9 89 12 87 22 | 20 5b 74 61 69 6c 6d 61 |......."| [tailma|
|00000b40| 6b 65 72 20 66 6f 72 6d | 20 73 74 61 74 65 20 74 |ker form| state t|
|00000b50| 20 33 20 6d 61 70 63 61 | 72 20 28 6c 61 6d 62 64 | 3 mapca|r (lambd|
|00000b60| 61 20 28 78 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |a (x) (b|yte-code|
|00000b70| 20 22 c1 08 44 87 22 20 | 5b 78 20 71 75 6f 74 65 | "..D." |[x quote|
|00000b80| 5d 20 32 29 29 20 6c 69 | 73 74 20 71 75 6f 74 65 |] 2)) li|st quote|
|00000b90| 20 61 70 70 65 6e 64 5d | 20 34 29 29 0a 0a 28 64 | append]| 4))..(d|
|00000ba0| 65 66 75 6e 20 62 71 2d | 65 76 61 6c 6c 69 73 74 |efun bq-|evallist|
|00000bb0| 20 28 66 6f 72 6d 29 20 | 28 62 79 74 65 2d 63 6f | (form) |(byte-co|
|00000bc0| 64 65 20 22 09 08 42 89 | 10 87 22 20 5b 74 61 69 |de "..B.|.." [tai|
|00000bd0| 6c 6d 61 6b 65 72 20 66 | 6f 72 6d 5d 20 32 29 29 |lmaker f|orm] 2))|
|00000be0| 0a 0a 28 64 65 66 75 6e | 20 62 71 2d 65 76 61 6c |..(defun| bq-eval|
|00000bf0| 61 70 70 65 6e 64 20 28 | 66 6f 72 6d 29 20 28 62 |append (|form) (b|
|00000c00| 79 74 65 2d 63 6f 64 65 | 20 22 08 3c 85 10 00 08 |yte-code| ".<....|
|00000c10| 40 3c 85 10 00 08 40 40 | c4 3d 83 1f 00 c5 08 40 |@<....@@|.=.....@|
|00000c20| 09 08 40 41 42 5c 22 82 | 39 00 08 47 c6 55 83 32 |..@AB\".|9..G.U.2|
|00000c30| 00 09 08 42 89 10 88 c7 | 89 12 82 39 00 c4 09 44 |...B....|...9...D|
|00000c40| 08 42 89 10 87 22 20 5b | 74 61 69 6c 6d 61 6b 65 |.B..." [|tailmake|
|00000c50| 72 20 66 6f 72 6d 20 73 | 74 61 74 65 20 74 20 6c |r form s|tate t l|
|00000c60| 69 73 74 20 72 70 6c 61 | 63 64 20 31 20 63 6f 6e |ist rpla|cd 1 con|
|00000c70| 73 5d 20 34 29 29 0a 0a | 28 64 65 66 75 6e 20 62 |s] 4))..|(defun b|
|00000c80| 71 2d 65 76 61 6c 6e 69 | 6c 20 28 66 6f 72 6d 29 |q-evalni|l (form)|
|00000c90| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 09 43 89 | (byte-c|ode ".C.|
|00000ca0| 10 88 c3 89 12 87 22 20 | 5b 74 61 69 6c 6d 61 6b |......" |[tailmak|
|00000cb0| 65 72 20 66 6f 72 6d 20 | 73 74 61 74 65 20 6c 69 |er form |state li|
|00000cc0| 73 74 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |st] 2)).|.(defun |
|00000cd0| 62 71 2d 73 70 6c 69 63 | 65 63 6f 6e 73 20 28 66 |bq-splic|econs (f|
|00000ce0| 6f 72 6d 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |orm) (by|te-code |
|00000cf0| 22 09 c3 08 40 08 41 40 | 45 44 89 10 88 c4 89 12 |"...@.A@|ED......|
|00000d00| 87 22 20 5b 74 61 69 6c | 6d 61 6b 65 72 20 66 6f |." [tail|maker fo|
|00000d10| 72 6d 20 73 74 61 74 65 | 20 63 6f 6e 73 20 61 70 |rm state| cons ap|
|00000d20| 70 65 6e 64 5d 20 34 29 | 29 0a 0a 28 64 65 66 75 |pend] 4)|)..(defu|
|00000d30| 6e 20 62 71 2d 73 70 6c | 69 63 65 71 75 6f 74 65 |n bq-spl|icequote|
|00000d40| 20 28 66 6f 72 6d 29 20 | 28 62 79 74 65 2d 63 6f | (form) |(byte-co|
|00000d50| 64 65 20 22 09 c3 08 43 | 44 44 89 10 88 c4 89 12 |de "...C|DD......|
|00000d60| 87 22 20 5b 74 61 69 6c | 6d 61 6b 65 72 20 66 6f |." [tail|maker fo|
|00000d70| 72 6d 20 73 74 61 74 65 | 20 71 75 6f 74 65 20 61 |rm state| quote a|
|00000d80| 70 70 65 6e 64 5d 20 33 | 29 29 0a 0a 28 64 65 66 |ppend] 3|))..(def|
|00000d90| 75 6e 20 62 71 2d 73 70 | 6c 69 63 65 6c 69 73 74 |un bq-sp|licelist|
|00000da0| 20 28 66 6f 72 6d 29 20 | 28 62 79 74 65 2d 63 6f | (form) |(byte-co|
|00000db0| 64 65 20 22 09 c3 08 42 | 44 89 10 88 c4 89 12 87 |de "...B|D.......|
|00000dc0| 22 20 5b 74 61 69 6c 6d | 61 6b 65 72 20 66 6f 72 |" [tailm|aker for|
|00000dd0| 6d 20 73 74 61 74 65 20 | 6c 69 73 74 20 61 70 70 |m state |list app|
|00000de0| 65 6e 64 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |end] 3))|..(defun|
|00000df0| 20 62 71 2d 73 70 6c 69 | 63 65 61 70 70 65 6e 64 | bq-spli|ceappend|
|00000e00| 20 28 66 6f 72 6d 29 20 | 28 62 79 74 65 2d 63 6f | (form) |(byte-co|
|00000e10| 64 65 20 22 09 08 42 89 | 10 87 22 20 5b 74 61 69 |de "..B.|.." [tai|
|00000e20| 6c 6d 61 6b 65 72 20 66 | 6f 72 6d 5d 20 32 29 29 |lmaker f|orm] 2))|
|00000e30| 0a 0a 28 64 65 66 75 6e | 20 62 71 2d 73 70 6c 69 |..(defun| bq-spli|
|00000e40| 63 65 6e 69 6c 20 28 66 | 6f 72 6d 29 20 28 62 79 |cenil (f|orm) (by|
|00000e50| 74 65 2d 63 6f 64 65 20 | 22 c3 89 10 88 0a 43 89 |te-code |".....C.|
|00000e60| 11 87 22 20 5b 73 74 61 | 74 65 20 74 61 69 6c 6d |.." [sta|te tailm|
|00000e70| 61 6b 65 72 20 66 6f 72 | 6d 20 61 70 70 65 6e 64 |aker for|m append|
|00000e80| 5d 20 32 29 29 0a       |                         |] 2)).  |        |
+--------+-------------------------+-------------------------+--------+--------+