|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ b ┃
Length: 3780 (0xec4)
Names: »backquote.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/backquote.elc«
0x000…020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 62 61 63 6b 71 75 6f 74 65 29 29 0a 0a 28 64 ┆ (provide (quote backquote)) (d┆ 0x020…040 65 66 6d 61 63 72 6f 20 70 75 73 68 20 28 76 20 6c 29 20 22 50 75 73 68 65 73 20 65 76 61 6c 75 ┆efmacro push (v l) "Pushes evalu┆ 0x040…060 61 74 65 64 20 66 69 72 73 74 20 66 6f 72 6d 20 6f 6e 74 6f 20 73 65 63 6f 6e 64 20 75 6e 65 76 ┆ated first form onto second unev┆ 0x060…080 61 6c 75 61 74 65 64 20 6f 62 6a 65 63 74 0a 61 20 6c 69 73 74 2d 76 61 6c 75 65 20 61 74 6f 6d ┆aluated object a list-value atom┆ 0x080…0a0 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 c3 09 08 45 45 87 22 20 5b 6c 20 76 20 73 65 74 ┆" (byte-code " EE " [l v set┆ 0x0a0…0c0 71 20 63 6f 6e 73 5d 20 35 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 63 61 61 72 20 28 6c 29 20 ┆q cons] 5)) (defmacro caar (l) ┆ 0x0c0…0e0 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c1 08 44 44 87 22 20 5b 6c 20 63 61 72 5d 20 33 29 29 0a ┆(byte-code " DD " [l car] 3)) ┆ 0x0e0…100 0a 28 64 65 66 6d 61 63 72 6f 20 63 61 64 72 20 28 6c 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆ (defmacro cadr (l) (byte-code "┆ 0x100…120 c1 c2 08 44 44 87 22 20 5b 6c 20 63 61 72 20 63 64 72 5d 20 33 29 29 0a 0a 28 64 65 66 6d 61 63 ┆ DD " [l car cdr] 3)) (defmac┆ 0x120…140 72 6f 20 63 64 61 72 20 28 6c 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 44 44 87 22 20 ┆ro cdar (l) (byte-code " DD " ┆ 0x140…160 5b 6c 20 63 64 72 20 63 61 72 5d 20 33 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 63 64 64 72 20 ┆[l cdr car] 3)) (defmacro cddr ┆ 0x160…180 28 6c 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c1 08 44 44 87 22 20 5b 6c 20 63 64 72 5d 20 ┆(l) (byte-code " DD " [l cdr] ┆ 0x180…1a0 33 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 62 61 63 6b 71 75 6f 74 65 2d 75 6e 71 75 6f 74 65 ┆3)) (defconst backquote-unquote┆ 0x1a0…1c0 20 28 71 75 6f 74 65 20 28 5c 2c 29 29 20 22 5c 0a 2a 41 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 ┆ (quote (\,)) "\ *A list of all ┆ 0x1c0…1e0 6f 62 6a 65 63 74 73 20 74 68 61 74 20 73 74 69 6d 75 6c 61 74 65 20 75 6e 71 75 6f 74 69 6e 67 ┆objects that stimulate unquoting┆ 0x1e0…200 20 69 6e 20 60 2e 20 20 4d 65 6d 71 20 74 65 73 74 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 ┆ in `. Memq test.") (defconst ┆ 0x200…220 62 61 63 6b 71 75 6f 74 65 2d 73 70 6c 69 63 65 20 28 71 75 6f 74 65 20 28 5c 2c 40 29 29 20 22 ┆backquote-splice (quote (\,@)) "┆ 0x220…240 5c 0a 2a 41 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 6f 62 6a 65 63 74 73 20 74 68 61 74 20 73 74 ┆\ *A list of all objects that st┆ 0x240…260 69 6d 75 6c 61 74 65 20 73 70 6c 69 63 69 6e 67 20 69 6e 20 60 2e 20 20 4d 65 6d 71 20 74 65 73 ┆imulate splicing in `. Memq tes┆ 0x260…280 74 2e 22 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 5c 60 20 28 66 6f 72 6d 29 20 22 28 60 20 46 4f ┆t.") (defmacro \` (form) "(` FO┆ 0x280…2a0 52 4d 29 20 45 78 70 61 6e 64 73 20 74 6f 20 61 20 66 6f 72 6d 20 74 68 61 74 20 77 69 6c 6c 20 ┆RM) Expands to a form that will ┆ 0x2a0…2c0 67 65 6e 65 72 61 74 65 20 46 4f 52 4d 2e 0a 46 4f 52 4d 20 69 73 20 60 61 6c 6d 6f 73 74 20 71 ┆generate FORM. FORM is `almost q┆ 0x2c0…2e0 75 6f 74 65 64 27 20 2d 2d 20 73 65 65 20 62 61 63 6b 71 75 6f 74 65 2e 65 6c 20 66 6f 72 20 61 ┆uoted' -- see backquote.el for a┆ 0x2e0…300 20 64 65 73 63 72 69 70 74 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 ┆ description." (byte-code " ! "┆ 0x300…320 20 5b 66 6f 72 6d 20 62 71 2d 6d 61 6b 65 2d 6d 61 6b 65 72 5d 20 32 29 29 0a 0a 28 64 65 66 75 ┆ [form bq-make-maker] 2)) (defu┆ 0x320…340 6e 20 62 71 2d 6d 61 6b 65 2d 6d 61 6b 65 72 20 28 66 6f 72 6d 29 20 22 5c 0a 47 69 76 65 6e 20 ┆n bq-make-maker (form) "\ Given ┆ 0x340…360 6f 6e 65 20 61 72 67 75 6d 65 6e 74 2c 20 61 20 60 6d 6f 73 74 6c 79 20 71 75 6f 74 65 64 27 20 ┆one argument, a `mostly quoted' ┆ 0x360…380 6f 62 6a 65 63 74 2c 20 70 72 6f 64 75 63 65 73 20 61 20 6d 61 6b 65 72 2e 0a 53 65 65 20 62 61 ┆object, produces a maker. See ba┆ 0x380…3a0 63 6b 71 75 6f 74 65 2e 65 6c 20 66 6f 72 20 64 65 74 61 69 6c 73 22 20 28 62 79 74 65 2d 63 6f ┆ckquote.el for details" (byte-co┆ 0x3a0…3c0 64 65 20 22 c4 c8 c8 c4 1b 1a 19 18 c9 ca cb 0d 21 5c 22 88 0b 85 3a 00 0b cc 3d 83 1f 00 0b 08 ┆de " !\" : = ┆ 0x3c0…3e0 44 82 3a 00 08 47 cd 55 83 33 00 ce cf 0b 0e 06 5c 22 41 40 08 5c 22 82 3a 00 c7 85 3a 00 0b 08 ┆D : G U 3 \"A@ \" : : ┆ 0x3e0…400 42 2c 87 22 20 5b 74 61 69 6c 6d 61 6b 65 72 20 71 63 20 65 63 20 73 74 61 74 65 20 6e 69 6c 20 ┆B, " [tailmaker qc ec state nil ┆ 0x400…420 66 6f 72 6d 20 62 71 2d 73 69 6e 67 6c 65 73 20 74 20 30 20 6d 61 70 63 61 72 20 62 71 2d 69 74 ┆form bq-singles t 0 mapcar bq-it┆ 0x420…440 65 72 61 74 69 76 65 2d 6c 69 73 74 2d 62 75 69 6c 64 65 72 20 72 65 76 65 72 73 65 20 71 75 6f ┆erative-list-builder reverse quo┆ 0x440…460 74 65 20 31 20 66 75 6e 63 61 6c 6c 20 61 73 73 71 5d 20 36 29 29 0a 0a 28 64 65 66 63 6f 6e 73 ┆te 1 funcall assq] 6)) (defcons┆ 0x460…480 74 20 62 71 2d 73 69 6e 67 6c 65 73 20 28 71 75 6f 74 65 20 28 28 71 75 6f 74 65 20 62 71 2d 71 ┆t bq-singles (quote ((quote bq-q┆ 0x480…4a0 75 6f 74 65 63 61 72 29 20 28 61 70 70 65 6e 64 20 63 61 72 29 20 28 6c 69 73 74 20 62 71 2d 6d ┆uotecar) (append car) (list bq-m┆ 0x4a0…4c0 61 6b 65 2d 6c 69 73 74 29 20 28 63 6f 6e 73 20 62 71 2d 69 64 29 29 29 29 0a 0a 28 64 65 66 75 ┆ake-list) (cons bq-id)))) (defu┆ 0x4c0…4e0 6e 20 62 71 2d 69 64 20 28 78 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 87 22 20 5b 78 5d 20 ┆n bq-id (x) (byte-code " " [x] ┆ 0x4e0…500 31 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 71 75 6f 74 65 63 61 72 20 28 78 29 20 28 62 79 74 ┆1)) (defun bq-quotecar (x) (byt┆ 0x500…520 65 2d 63 6f 64 65 20 22 c1 08 40 44 87 22 20 5b 78 20 71 75 6f 74 65 5d 20 32 29 29 0a 0a 28 64 ┆e-code " @D " [x quote] 2)) (d┆ 0x520…540 65 66 75 6e 20 62 71 2d 6d 61 6b 65 2d 6c 69 73 74 20 28 78 29 20 28 62 79 74 65 2d 63 6f 64 65 ┆efun bq-make-list (x) (byte-code┆ 0x540…560 20 22 c1 08 42 87 22 20 5b 78 20 6c 69 73 74 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d ┆ " B " [x list] 2)) (defun bq-┆ 0x560…580 69 74 65 72 61 74 69 76 65 2d 6c 69 73 74 2d 62 75 69 6c 64 65 72 20 28 66 6f 72 6d 29 20 22 5c ┆iterative-list-builder (form) "\┆ 0x580…5a0 0a 43 61 6c 6c 65 64 20 62 79 20 62 71 2d 6d 61 6b 65 2d 6d 61 6b 65 72 2e 20 20 41 64 64 73 20 ┆ Called by bq-make-maker. Adds ┆ 0x5a0…5c0 61 20 6e 65 77 20 69 74 65 6d 20 66 6f 72 6d 20 74 6f 20 74 61 69 6c 6d 61 6b 65 72 2c 20 0a 63 ┆a new item form to tailmaker, c┆ 0x5c0…5e0 68 61 6e 67 69 6e 67 20 73 74 61 74 65 20 69 66 20 6e 65 65 64 20 62 65 2c 20 73 6f 20 74 61 69 ┆hanging state if need be, so tai┆ 0x5e0…600 6c 6d 61 6b 65 72 20 61 6e 64 20 73 74 61 74 65 20 63 6f 6e 73 74 69 74 75 74 65 20 61 20 72 65 ┆lmaker and state constitute a re┆ 0x600…620 63 69 70 69 65 0a 66 6f 72 20 6d 61 6b 69 6e 67 20 74 68 65 20 6c 69 73 74 20 73 6f 20 66 61 72 ┆cipie for making the list so far┆ 0x620…640 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c9 08 21 83 12 00 ca cb 09 0a 5c 22 41 40 08 5c 22 ┆." (byte-code " ! \"A@ \"┆ 0x640…660 82 6e 00 08 40 0b 3e 83 27 00 ca cb 09 0c 5c 22 41 40 08 41 40 5c 22 82 6e 00 08 40 0d 3e 83 3d ┆ n @ > ' \"A@ A@\" n @ > =┆ 0x660…680 00 ca cb 09 0e 06 5c 22 41 40 08 41 40 5c 22 82 6e 00 c7 85 6e 00 cc 08 21 1e 08 0e 08 3c 85 51 ┆ \"A@ A@\" n n ! < Q┆ 0x680…6a0 00 0e 08 40 cd 3d 83 63 00 ca cb 09 0a 5c 22 41 40 0e 08 41 40 5c 22 82 6d 00 ca cb 09 0c 5c 22 ┆ @ = c \"A@ A@\" m \"┆ 0x6a0…6c0 41 40 0e 08 5c 22 29 87 22 20 5b 66 6f 72 6d 20 73 74 61 74 65 20 62 71 2d 71 75 6f 74 65 66 6e ┆A@ \") " [form state bq-quotefn┆ 0x6c0…6e0 73 20 62 61 63 6b 71 75 6f 74 65 2d 75 6e 71 75 6f 74 65 20 62 71 2d 65 76 61 6c 66 6e 73 20 62 ┆s backquote-unquote bq-evalfns b┆ 0x6e0…700 61 63 6b 71 75 6f 74 65 2d 73 70 6c 69 63 65 20 62 71 2d 73 70 6c 69 63 65 66 6e 73 20 74 20 6e ┆ackquote-splice bq-splicefns t n┆ 0x700…720 65 77 66 6f 72 6d 20 61 74 6f 6d 20 66 75 6e 63 61 6c 6c 20 61 73 73 71 20 62 71 2d 6d 61 6b 65 ┆ewform atom funcall assq bq-make┆ 0x720…740 2d 6d 61 6b 65 72 20 71 75 6f 74 65 5d 20 31 34 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 62 71 ┆-maker quote] 14)) (defconst bq┆ 0x740…760 2d 73 70 6c 69 63 65 66 6e 73 20 28 71 75 6f 74 65 20 28 28 6e 69 6c 20 62 71 2d 73 70 6c 69 63 ┆-splicefns (quote ((nil bq-splic┆ 0x760…780 65 6e 69 6c 29 20 28 61 70 70 65 6e 64 20 62 71 2d 73 70 6c 69 63 65 61 70 70 65 6e 64 29 20 28 ┆enil) (append bq-spliceappend) (┆ 0x780…7a0 6c 69 73 74 20 62 71 2d 73 70 6c 69 63 65 6c 69 73 74 29 20 28 71 75 6f 74 65 20 62 71 2d 73 70 ┆list bq-splicelist) (quote bq-sp┆ 0x7a0…7c0 6c 69 63 65 71 75 6f 74 65 29 20 28 63 6f 6e 73 20 62 71 2d 73 70 6c 69 63 65 63 6f 6e 73 29 29 ┆licequote) (cons bq-splicecons))┆ 0x7c0…7e0 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 62 71 2d 65 76 61 6c 66 6e 73 20 28 71 75 6f 74 65 20 ┆)) (defconst bq-evalfns (quote ┆ 0x7e0…800 28 28 6e 69 6c 20 62 71 2d 65 76 61 6c 6e 69 6c 29 20 28 61 70 70 65 6e 64 20 62 71 2d 65 76 61 ┆((nil bq-evalnil) (append bq-eva┆ 0x800…820 6c 61 70 70 65 6e 64 29 20 28 6c 69 73 74 20 62 71 2d 65 76 61 6c 6c 69 73 74 29 20 28 71 75 6f ┆lappend) (list bq-evallist) (quo┆ 0x820…840 74 65 20 62 71 2d 65 76 61 6c 71 75 6f 74 65 29 20 28 63 6f 6e 73 20 62 71 2d 65 76 61 6c 63 6f ┆te bq-evalquote) (cons bq-evalco┆ 0x840…860 6e 73 29 29 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 62 71 2d 71 75 6f 74 65 66 6e 73 20 28 71 ┆ns)))) (defconst bq-quotefns (q┆ 0x860…880 75 6f 74 65 20 28 28 6e 69 6c 20 62 71 2d 71 75 6f 74 65 6e 69 6c 29 20 28 61 70 70 65 6e 64 20 ┆uote ((nil bq-quotenil) (append ┆ 0x880…8a0 62 71 2d 71 75 6f 74 65 61 70 70 65 6e 64 29 20 28 6c 69 73 74 20 62 71 2d 71 75 6f 74 65 6c 69 ┆bq-quoteappend) (list bq-quoteli┆ 0x8a0…8c0 73 74 29 20 28 71 75 6f 74 65 20 62 71 2d 71 75 6f 74 65 71 75 6f 74 65 29 20 28 63 6f 6e 73 20 ┆st) (quote bq-quotequote) (cons ┆ 0x8c0…8e0 62 71 2d 71 75 6f 74 65 63 6f 6e 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 71 75 6f 74 ┆bq-quotecons)))) (defun bq-quot┆ 0x8e0…900 65 63 6f 6e 73 20 28 66 6f 72 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 40 3c 85 0b 00 08 ┆econs (form) (byte-code " @< ┆ 0x900…920 40 40 c3 3d 83 1f 00 c3 09 08 40 41 40 44 44 08 41 40 44 89 10 82 2c 00 c4 c3 09 44 08 40 45 08 ┆@@ = @A@DD A@D , D @E ┆ 0x920…940 41 40 44 89 10 88 c5 89 12 87 22 20 5b 74 61 69 6c 6d 61 6b 65 72 20 66 6f 72 6d 20 73 74 61 74 ┆A@D " [tailmaker form stat┆ 0x940…960 65 20 71 75 6f 74 65 20 6c 69 73 74 20 61 70 70 65 6e 64 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e ┆e quote list append] 3)) (defun┆ 0x960…980 20 62 71 2d 71 75 6f 74 65 71 75 6f 74 65 20 28 66 6f 72 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 ┆ bq-quotequote (form) (byte-code┆ 0x980…9a0 20 22 09 08 42 89 10 87 22 20 5b 74 61 69 6c 6d 61 6b 65 72 20 66 6f 72 6d 5d 20 32 29 29 0a 0a ┆ " B " [tailmaker form] 2)) ┆ 0x9a0…9c0 28 64 65 66 75 6e 20 62 71 2d 71 75 6f 74 65 6c 69 73 74 20 28 66 6f 72 6d 29 20 28 62 79 74 65 ┆(defun bq-quotelist (form) (byte┆ 0x9c0…9e0 2d 63 6f 64 65 20 22 c2 09 44 08 42 89 10 87 22 20 5b 74 61 69 6c 6d 61 6b 65 72 20 66 6f 72 6d ┆-code " D B " [tailmaker form┆ 0x9e0…a00 20 71 75 6f 74 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 71 75 6f 74 65 61 70 70 65 ┆ quote] 2)) (defun bq-quoteappe┆ 0xa00…a20 6e 64 20 28 66 6f 72 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3c 85 10 00 08 40 3c 85 10 ┆nd (form) (byte-code " < @< ┆ 0xa20…a40 00 08 40 40 c3 3d 83 21 00 c4 08 40 41 09 08 40 41 40 42 5c 22 82 2d 00 c2 85 2d 00 c3 09 43 44 ┆ @@ = ! @A @A@B\" - - CD┆ 0xa40…a60 08 42 89 10 87 22 20 5b 74 61 69 6c 6d 61 6b 65 72 20 66 6f 72 6d 20 74 20 71 75 6f 74 65 20 72 ┆ B " [tailmaker form t quote r┆ 0xa60…a80 70 6c 61 63 61 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 71 75 6f 74 65 6e 69 6c 20 28 ┆placa] 4)) (defun bq-quotenil (┆ 0xa80…aa0 66 6f 72 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 43 89 10 88 c3 89 12 87 22 20 5b 74 61 ┆form) (byte-code " C " [ta┆ 0xaa0…ac0 69 6c 6d 61 6b 65 72 20 66 6f 72 6d 20 73 74 61 74 65 20 71 75 6f 74 65 5d 20 32 29 29 0a 0a 28 ┆ilmaker form state quote] 2)) (┆ 0xac0…ae0 64 65 66 75 6e 20 62 71 2d 65 76 61 6c 63 6f 6e 73 20 28 66 6f 72 6d 29 20 28 62 79 74 65 2d 63 ┆defun bq-evalcons (form) (byte-c┆ 0xae0…b00 6f 64 65 20 22 c3 09 08 40 45 08 41 40 44 89 10 88 c4 89 12 87 22 20 5b 74 61 69 6c 6d 61 6b 65 ┆ode " @E A@D " [tailmake┆ 0xb00…b20 72 20 66 6f 72 6d 20 73 74 61 74 65 20 6c 69 73 74 20 61 70 70 65 6e 64 5d 20 33 29 29 0a 0a 28 ┆r form state list append] 3)) (┆ 0xb20…b40 64 65 66 75 6e 20 62 71 2d 65 76 61 6c 71 75 6f 74 65 20 28 66 6f 72 6d 29 20 28 62 79 74 65 2d ┆defun bq-evalquote (form) (byte-┆ 0xb40…b60 63 6f 64 65 20 22 08 47 c5 57 83 16 00 09 c6 c7 08 5c 22 42 89 10 88 c8 89 13 82 27 00 c4 85 27 ┆code " G W \"B ' '┆ 0xb60…b80 00 c8 09 44 c9 08 44 44 89 10 88 ca 89 13 87 22 20 5b 74 61 69 6c 6d 61 6b 65 72 20 66 6f 72 6d ┆ D DD " [tailmaker form┆ 0xb80…ba0 20 78 20 73 74 61 74 65 20 74 20 33 20 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 78 29 20 ┆ x state t 3 mapcar (lambda (x) ┆ 0xba0…bc0 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 44 87 22 20 5b 78 20 71 75 6f 74 65 5d 20 32 29 29 20 ┆(byte-code " D " [x quote] 2)) ┆ 0xbc0…be0 6c 69 73 74 20 71 75 6f 74 65 20 61 70 70 65 6e 64 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 62 ┆list quote append] 4)) (defun b┆ 0xbe0…c00 71 2d 65 76 61 6c 6c 69 73 74 20 28 66 6f 72 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 08 ┆q-evallist (form) (byte-code " ┆ 0xc00…c20 42 89 10 87 22 20 5b 74 61 69 6c 6d 61 6b 65 72 20 66 6f 72 6d 5d 20 32 29 29 0a 0a 28 64 65 66 ┆B " [tailmaker form] 2)) (def┆ 0xc20…c40 75 6e 20 62 71 2d 65 76 61 6c 61 70 70 65 6e 64 20 28 66 6f 72 6d 29 20 28 62 79 74 65 2d 63 6f ┆un bq-evalappend (form) (byte-co┆ 0xc40…c60 64 65 20 22 08 3c 85 10 00 08 40 3c 85 10 00 08 40 40 c4 3d 83 1f 00 c5 08 40 09 08 40 41 42 5c ┆de " < @< @@ = @ @AB\┆ 0xc60…c80 22 82 3d 00 08 47 c6 55 83 32 00 09 08 42 89 10 88 c7 89 12 82 3d 00 c3 85 3d 00 c4 09 44 08 42 ┆" = G U 2 B = = D B┆ 0xc80…ca0 89 10 87 22 20 5b 74 61 69 6c 6d 61 6b 65 72 20 66 6f 72 6d 20 73 74 61 74 65 20 74 20 6c 69 73 ┆ " [tailmaker form state t lis┆ 0xca0…cc0 74 20 72 70 6c 61 63 64 20 31 20 63 6f 6e 73 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d ┆t rplacd 1 cons] 4)) (defun bq-┆ 0xcc0…ce0 65 76 61 6c 6e 69 6c 20 28 66 6f 72 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 43 89 10 88 ┆evalnil (form) (byte-code " C ┆ 0xce0…d00 c3 89 12 87 22 20 5b 74 61 69 6c 6d 61 6b 65 72 20 66 6f 72 6d 20 73 74 61 74 65 20 6c 69 73 74 ┆ " [tailmaker form state list┆ 0xd00…d20 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 73 70 6c 69 63 65 63 6f 6e 73 20 28 66 6f 72 ┆] 2)) (defun bq-splicecons (for┆ 0xd20…d40 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 c3 08 40 08 41 40 45 44 89 10 88 c4 89 12 87 22 ┆m) (byte-code " @ A@ED "┆ 0xd40…d60 20 5b 74 61 69 6c 6d 61 6b 65 72 20 66 6f 72 6d 20 73 74 61 74 65 20 63 6f 6e 73 20 61 70 70 65 ┆ [tailmaker form state cons appe┆ 0xd60…d80 6e 64 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 73 70 6c 69 63 65 71 75 6f 74 65 20 28 ┆nd] 4)) (defun bq-splicequote (┆ 0xd80…da0 66 6f 72 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 c3 08 43 44 44 89 10 88 c4 89 12 87 22 ┆form) (byte-code " CDD "┆ 0xda0…dc0 20 5b 74 61 69 6c 6d 61 6b 65 72 20 66 6f 72 6d 20 73 74 61 74 65 20 71 75 6f 74 65 20 61 70 70 ┆ [tailmaker form state quote app┆ 0xdc0…de0 65 6e 64 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 73 70 6c 69 63 65 6c 69 73 74 20 28 ┆end] 3)) (defun bq-splicelist (┆ 0xde0…e00 66 6f 72 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 c3 08 42 44 89 10 88 c4 89 12 87 22 20 ┆form) (byte-code " BD " ┆ 0xe00…e20 5b 74 61 69 6c 6d 61 6b 65 72 20 66 6f 72 6d 20 73 74 61 74 65 20 6c 69 73 74 20 61 70 70 65 6e ┆[tailmaker form state list appen┆ 0xe20…e40 64 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 73 70 6c 69 63 65 61 70 70 65 6e 64 20 28 ┆d] 3)) (defun bq-spliceappend (┆ 0xe40…e60 66 6f 72 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 08 42 89 10 87 22 20 5b 74 61 69 6c 6d ┆form) (byte-code " B " [tailm┆ 0xe60…e80 61 6b 65 72 20 66 6f 72 6d 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 73 70 6c 69 63 65 ┆aker form] 2)) (defun bq-splice┆ 0xe80…ea0 6e 69 6c 20 28 66 6f 72 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 89 10 88 0a 43 89 11 87 ┆nil (form) (byte-code " C ┆ 0xea0…ec0 22 20 5b 73 74 61 74 65 20 74 61 69 6c 6d 61 6b 65 72 20 66 6f 72 6d 20 61 70 70 65 6e 64 5d 20 ┆" [state tailmaker form append] ┆ 0xec0…ec4 32 29 29 0a ┆2)) ┆