DataMuseum.dk

top - metrics - download

    Length: 3718 (0xe86)
    Names: »backquote.elc«

└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
    └─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z« 
        └─⟦fa971747f⟧ 
            └─⟦this⟧ »dist-18.55/lisp/backquote.elc« 

Hex Dump

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 62 71 2d 70 75 73 68 20 28 76 20 6c 29 20 22 50 75 73 68 65 73 20 65 76   ┆efmacro bq-push (v l) "Pushes ev┆
0x040…060 61 6c 75 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   ┆aluated first form onto second u┆
0x060…080 6e 65 76 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   ┆nevaluated object a list-value a┆
0x080…0a0 74 6f 6d 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   ┆tom" (byte-code "     EE " [l v ┆
0x0a0…0c0 73 65 74 71 20 63 6f 6e 73 5d 20 35 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 62 71 2d 63 61 61   ┆setq cons] 5))  (defmacro bq-caa┆
0x0c0…0e0 72 20 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 61 72   ┆r (l) (byte-code "   DD " [l car┆
0x0e0…100 5d 20 33 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 62 71 2d 63 61 64 72 20 28 6c 29 20 28 62 79   ┆] 3))  (defmacro bq-cadr (l) (by┆
0x100…120 74 65 2d 63 6f 64 65 20 22 c1 c2 08 44 44 87 22 20 5b 6c 20 63 61 72 20 63 64 72 5d 20 33 29 29   ┆te-code "   DD " [l car cdr] 3))┆
0x120…140 0a 0a 28 64 65 66 6d 61 63 72 6f 20 62 71 2d 63 64 61 72 20 28 6c 29 20 28 62 79 74 65 2d 63 6f   ┆  (defmacro bq-cdar (l) (byte-co┆
0x140…160 64 65 20 22 c1 c2 08 44 44 87 22 20 5b 6c 20 63 64 72 20 63 61 72 5d 20 33 29 29 0a 0a 28 64 65   ┆de "   DD " [l cdr car] 3))  (de┆
0x160…180 66 63 6f 6e 73 74 20 62 61 63 6b 71 75 6f 74 65 2d 75 6e 71 75 6f 74 65 20 28 71 75 6f 74 65 20   ┆fconst backquote-unquote (quote ┆
0x180…1a0 28 5c 2c 29 29 20 22 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   ┆(\,)) "\ *A list of all objects ┆
0x1a0…1c0 74 68 61 74 20 73 74 69 6d 75 6c 61 74 65 20 75 6e 71 75 6f 74 69 6e 67 20 69 6e 20 60 2e 20 20   ┆that stimulate unquoting in `.  ┆
0x1c0…1e0 4d 65 6d 71 20 74 65 73 74 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 62 61 63 6b 71 75 6f 74   ┆Memq test.")  (defconst backquot┆
0x1e0…200 65 2d 73 70 6c 69 63 65 20 28 71 75 6f 74 65 20 28 5c 2c 40 29 29 20 22 5c 0a 2a 41 20 6c 69 73   ┆e-splice (quote (\,@)) "\ *A lis┆
0x200…220 74 20 6f 66 20 61 6c 6c 20 6f 62 6a 65 63 74 73 20 74 68 61 74 20 73 74 69 6d 75 6c 61 74 65 20   ┆t of all objects that stimulate ┆
0x220…240 73 70 6c 69 63 69 6e 67 20 69 6e 20 60 2e 20 20 4d 65 6d 71 20 74 65 73 74 2e 22 29 0a 0a 28 64   ┆splicing in `.  Memq test.")  (d┆
0x240…260 65 66 6d 61 63 72 6f 20 5c 60 20 28 66 6f 72 6d 29 20 22 28 60 20 46 4f 52 4d 29 20 45 78 70 61   ┆efmacro \` (form) "(` FORM) Expa┆
0x260…280 6e 64 73 20 74 6f 20 61 20 66 6f 72 6d 20 74 68 61 74 20 77 69 6c 6c 20 67 65 6e 65 72 61 74 65   ┆nds to a form that will generate┆
0x280…2a0 20 46 4f 52 4d 2e 0a 46 4f 52 4d 20 69 73 20 60 61 6c 6d 6f 73 74 20 71 75 6f 74 65 64 27 20 2d   ┆ FORM. FORM is `almost quoted' -┆
0x2a0…2c0 2d 20 73 65 65 20 62 61 63 6b 71 75 6f 74 65 2e 65 6c 20 66 6f 72 20 61 20 64 65 73 63 72 69 70   ┆- see backquote.el for a descrip┆
0x2c0…2e0 74 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 66 6f 72 6d 20 62   ┆tion." (byte-code "  ! " [form b┆
0x2e0…300 71 2d 6d 61 6b 65 2d 6d 61 6b 65 72 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 6d 61 6b   ┆q-make-maker] 2))  (defun bq-mak┆
0x300…320 65 2d 6d 61 6b 65 72 20 28 66 6f 72 6d 29 20 22 5c 0a 47 69 76 65 6e 20 6f 6e 65 20 61 72 67 75   ┆e-maker (form) "\ Given one argu┆
0x320…340 6d 65 6e 74 2c 20 61 20 60 6d 6f 73 74 6c 79 20 71 75 6f 74 65 64 27 20 6f 62 6a 65 63 74 2c 20   ┆ment, a `mostly quoted' object, ┆
0x340…360 70 72 6f 64 75 63 65 73 20 61 20 6d 61 6b 65 72 2e 0a 53 65 65 20 62 61 63 6b 71 75 6f 74 65 2e   ┆produces a maker. See backquote.┆
0x360…380 65 6c 20 66 6f 72 20 64 65 74 61 69 6c 73 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 c8 c8 c4   ┆el for details" (byte-code "    ┆
0x380…3a0 1b 1a 19 18 c9 ca cb 0d 21 5c 22 88 0b 85 36 00 0b cc 3d 83 1f 00 0b 08 44 82 36 00 08 47 cd 55   ┆        !\"   6   =     D 6  G U┆
0x3a0…3c0 83 33 00 ce cf 0b 0e 06 5c 22 41 40 08 5c 22 82 36 00 0b 08 42 2c 87 22 20 5b 74 61 69 6c 6d 61   ┆ 3      \"A@ \" 6   B, " [tailma┆
0x3c0…3e0 6b 65 72 20 71 63 20 65 63 20 73 74 61 74 65 20 6e 69 6c 20 66 6f 72 6d 20 62 71 2d 73 69 6e 67   ┆ker qc ec state nil form bq-sing┆
0x3e0…400 6c 65 73 20 74 20 30 20 6d 61 70 63 61 72 20 62 71 2d 69 74 65 72 61 74 69 76 65 2d 6c 69 73 74   ┆les t 0 mapcar bq-iterative-list┆
0x400…420 2d 62 75 69 6c 64 65 72 20 72 65 76 65 72 73 65 20 71 75 6f 74 65 20 31 20 66 75 6e 63 61 6c 6c   ┆-builder reverse quote 1 funcall┆
0x420…440 20 61 73 73 71 5d 20 36 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 62 71 2d 73 69 6e 67 6c 65 73   ┆ assq] 6))  (defconst bq-singles┆
0x440…460 20 28 71 75 6f 74 65 20 28 28 71 75 6f 74 65 20 62 71 2d 71 75 6f 74 65 63 61 72 29 20 28 61 70   ┆ (quote ((quote bq-quotecar) (ap┆
0x460…480 70 65 6e 64 20 63 61 72 29 20 28 6c 69 73 74 20 62 71 2d 6d 61 6b 65 2d 6c 69 73 74 29 20 28 63   ┆pend car) (list bq-make-list) (c┆
0x480…4a0 6f 6e 73 20 62 71 2d 69 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 69 64 20 28 78 29 20   ┆ons bq-id))))  (defun bq-id (x) ┆
0x4a0…4c0 28 62 79 74 65 2d 63 6f 64 65 20 22 08 87 22 20 5b 78 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20   ┆(byte-code "  " [x] 1))  (defun ┆
0x4c0…4e0 62 71 2d 71 75 6f 74 65 63 61 72 20 28 78 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 40 44   ┆bq-quotecar (x) (byte-code "  @D┆
0x4e0…500 87 22 20 5b 78 20 71 75 6f 74 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 6d 61 6b 65   ┆ " [x quote] 2))  (defun bq-make┆
0x500…520 2d 6c 69 73 74 20 28 78 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 42 87 22 20 5b 78 20 6c   ┆-list (x) (byte-code "  B " [x l┆
0x520…540 69 73 74 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 69 74 65 72 61 74 69 76 65 2d 6c 69   ┆ist] 2))  (defun bq-iterative-li┆
0x540…560 73 74 2d 62 75 69 6c 64 65 72 20 28 66 6f 72 6d 29 20 22 5c 0a 43 61 6c 6c 65 64 20 62 79 20 62   ┆st-builder (form) "\ Called by b┆
0x560…580 71 2d 6d 61 6b 65 2d 6d 61 6b 65 72 2e 20 20 41 64 64 73 20 61 20 6e 65 77 20 69 74 65 6d 20 66   ┆q-make-maker.  Adds a new item f┆
0x580…5a0 6f 72 6d 20 74 6f 20 74 61 69 6c 6d 61 6b 65 72 2c 20 0a 63 68 61 6e 67 69 6e 67 20 73 74 61 74   ┆orm to tailmaker,  changing stat┆
0x5a0…5c0 65 20 69 66 20 6e 65 65 64 20 62 65 2c 20 73 6f 20 74 61 69 6c 6d 61 6b 65 72 20 61 6e 64 20 73   ┆e if need be, so tailmaker and s┆
0x5c0…5e0 74 61 74 65 20 63 6f 6e 73 74 69 74 75 74 65 20 61 20 72 65 63 69 70 69 65 0a 66 6f 72 20 6d 61   ┆tate constitute a recipie for ma┆
0x5e0…600 6b 69 6e 67 20 74 68 65 20 6c 69 73 74 20 73 6f 20 66 61 72 2e 22 20 28 62 79 74 65 2d 63 6f 64   ┆king the list so far." (byte-cod┆
0x600…620 65 20 22 c9 08 21 83 12 00 ca cb 09 0a 5c 22 41 40 08 5c 22 82 6a 00 08 40 0b 3e 83 27 00 ca cb   ┆e "  !       \"A@ \" j  @ > '   ┆
0x620…640 09 0c 5c 22 41 40 08 41 40 5c 22 82 6a 00 08 40 0d 3e 83 3d 00 ca cb 09 0e 06 5c 22 41 40 08 41   ┆  \"A@ A@\" j  @ > =      \"A@ A┆
0x640…660 40 5c 22 82 6a 00 cc 08 21 1e 08 0e 08 3c 85 4d 00 0e 08 40 cd 3d 83 5f 00 ca cb 09 0a 5c 22 41   ┆@\" j   !    < M   @ = _     \"A┆
0x660…680 40 0e 08 41 40 5c 22 82 69 00 ca cb 09 0c 5c 22 41 40 0e 08 5c 22 29 87 22 20 5b 66 6f 72 6d 20   ┆@  A@\" i     \"A@  \") " [form ┆
0x680…6a0 73 74 61 74 65 20 62 71 2d 71 75 6f 74 65 66 6e 73 20 62 61 63 6b 71 75 6f 74 65 2d 75 6e 71 75   ┆state bq-quotefns backquote-unqu┆
0x6a0…6c0 6f 74 65 20 62 71 2d 65 76 61 6c 66 6e 73 20 62 61 63 6b 71 75 6f 74 65 2d 73 70 6c 69 63 65 20   ┆ote bq-evalfns backquote-splice ┆
0x6c0…6e0 62 71 2d 73 70 6c 69 63 65 66 6e 73 20 74 20 6e 65 77 66 6f 72 6d 20 61 74 6f 6d 20 66 75 6e 63   ┆bq-splicefns t newform atom func┆
0x6e0…700 61 6c 6c 20 61 73 73 71 20 62 71 2d 6d 61 6b 65 2d 6d 61 6b 65 72 20 71 75 6f 74 65 5d 20 31 34   ┆all assq bq-make-maker quote] 14┆
0x700…720 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 62 71 2d 73 70 6c 69 63 65 66 6e 73 20 28 71 75 6f 74   ┆))  (defconst bq-splicefns (quot┆
0x720…740 65 20 28 28 6e 69 6c 20 62 71 2d 73 70 6c 69 63 65 6e 69 6c 29 20 28 61 70 70 65 6e 64 20 62 71   ┆e ((nil bq-splicenil) (append bq┆
0x740…760 2d 73 70 6c 69 63 65 61 70 70 65 6e 64 29 20 28 6c 69 73 74 20 62 71 2d 73 70 6c 69 63 65 6c 69   ┆-spliceappend) (list bq-spliceli┆
0x760…780 73 74 29 20 28 71 75 6f 74 65 20 62 71 2d 73 70 6c 69 63 65 71 75 6f 74 65 29 20 28 63 6f 6e 73   ┆st) (quote bq-splicequote) (cons┆
0x780…7a0 20 62 71 2d 73 70 6c 69 63 65 63 6f 6e 73 29 29 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 62 71   ┆ bq-splicecons))))  (defconst bq┆
0x7a0…7c0 2d 65 76 61 6c 66 6e 73 20 28 71 75 6f 74 65 20 28 28 6e 69 6c 20 62 71 2d 65 76 61 6c 6e 69 6c   ┆-evalfns (quote ((nil bq-evalnil┆
0x7c0…7e0 29 20 28 61 70 70 65 6e 64 20 62 71 2d 65 76 61 6c 61 70 70 65 6e 64 29 20 28 6c 69 73 74 20 62   ┆) (append bq-evalappend) (list b┆
0x7e0…800 71 2d 65 76 61 6c 6c 69 73 74 29 20 28 71 75 6f 74 65 20 62 71 2d 65 76 61 6c 71 75 6f 74 65 29   ┆q-evallist) (quote bq-evalquote)┆
0x800…820 20 28 63 6f 6e 73 20 62 71 2d 65 76 61 6c 63 6f 6e 73 29 29 29 29 0a 0a 28 64 65 66 63 6f 6e 73   ┆ (cons bq-evalcons))))  (defcons┆
0x820…840 74 20 62 71 2d 71 75 6f 74 65 66 6e 73 20 28 71 75 6f 74 65 20 28 28 6e 69 6c 20 62 71 2d 71 75   ┆t bq-quotefns (quote ((nil bq-qu┆
0x840…860 6f 74 65 6e 69 6c 29 20 28 61 70 70 65 6e 64 20 62 71 2d 71 75 6f 74 65 61 70 70 65 6e 64 29 20   ┆otenil) (append bq-quoteappend) ┆
0x860…880 28 6c 69 73 74 20 62 71 2d 71 75 6f 74 65 6c 69 73 74 29 20 28 71 75 6f 74 65 20 62 71 2d 71 75   ┆(list bq-quotelist) (quote bq-qu┆
0x880…8a0 6f 74 65 71 75 6f 74 65 29 20 28 63 6f 6e 73 20 62 71 2d 71 75 6f 74 65 63 6f 6e 73 29 29 29 29   ┆otequote) (cons bq-quotecons))))┆
0x8a0…8c0 0a 0a 28 64 65 66 75 6e 20 62 71 2d 71 75 6f 74 65 63 6f 6e 73 20 28 66 6f 72 6d 29 20 28 62 79   ┆  (defun bq-quotecons (form) (by┆
0x8c0…8e0 74 65 2d 63 6f 64 65 20 22 08 40 3c 85 0b 00 08 40 40 c3 3d 83 1f 00 c3 09 08 40 41 40 44 44 08   ┆te-code " @<    @@ =      @A@DD ┆
0x8e0…900 41 40 44 89 10 82 2c 00 c4 c3 09 44 08 40 45 08 41 40 44 89 10 88 c5 89 12 87 22 20 5b 74 61 69   ┆A@D   ,    D @E A@D       " [tai┆
0x900…920 6c 6d 61 6b 65 72 20 66 6f 72 6d 20 73 74 61 74 65 20 71 75 6f 74 65 20 6c 69 73 74 20 61 70 70   ┆lmaker form state quote list app┆
0x920…940 65 6e 64 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 71 75 6f 74 65 71 75 6f 74 65 20 28   ┆end] 3))  (defun bq-quotequote (┆
0x940…960 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┆
0x960…980 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 71 75 6f 74 65 6c   ┆aker form] 2))  (defun bq-quotel┆
0x980…9a0 69 73 74 20 28 66 6f 72 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 09 44 08 42 89 10 87 22   ┆ist (form) (byte-code "  D B   "┆
0x9a0…9c0 20 5b 74 61 69 6c 6d 61 6b 65 72 20 66 6f 72 6d 20 71 75 6f 74 65 5d 20 32 29 29 0a 0a 28 64 65   ┆ [tailmaker form quote] 2))  (de┆
0x9c0…9e0 66 75 6e 20 62 71 2d 71 75 6f 74 65 61 70 70 65 6e 64 20 28 66 6f 72 6d 29 20 28 62 79 74 65 2d   ┆fun bq-quoteappend (form) (byte-┆
0x9e0…a00 63 6f 64 65 20 22 08 3c 85 10 00 08 40 3c 85 10 00 08 40 40 c3 3d 83 21 00 c4 08 40 41 09 08 40   ┆code " <    @<    @@ = !   @A  @┆
0xa00…a20 41 40 42 5c 22 82 29 00 c3 09 43 44 08 42 89 10 87 22 20 5b 74 61 69 6c 6d 61 6b 65 72 20 66 6f   ┆A@B\" )   CD B   " [tailmaker fo┆
0xa20…a40 72 6d 20 74 20 71 75 6f 74 65 20 72 70 6c 61 63 61 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 62   ┆rm t quote rplaca] 4))  (defun b┆
0xa40…a60 71 2d 71 75 6f 74 65 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   ┆q-quotenil (form) (byte-code " C┆
0xa60…a80 89 10 88 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 71   ┆       " [tailmaker form state q┆
0xa80…aa0 75 6f 74 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 65 76 61 6c 63 6f 6e 73 20 28 66   ┆uote] 2))  (defun bq-evalcons (f┆
0xaa0…ac0 6f 72 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 09 08 40 45 08 41 40 44 89 10 88 c4 89 12   ┆orm) (byte-code "   @E A@D      ┆
0xac0…ae0 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 20 61 70   ┆ " [tailmaker form state list ap┆
0xae0…b00 70 65 6e 64 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 62 71 2d 65 76 61 6c 71 75 6f 74 65 20 28   ┆pend] 3))  (defun bq-evalquote (┆
0xb00…b20 66 6f 72 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 47 c4 57 83 16 00 09 c5 c6 08 5c 22 42   ┆form) (byte-code " G W       \"B┆
0xb20…b40 89 10 88 c7 89 12 82 23 00 c7 09 44 c8 08 44 44 89 10 88 c9 89 12 87 22 20 5b 74 61 69 6c 6d 61   ┆       #   D  DD       " [tailma┆
0xb40…b60 6b 65 72 20 66 6f 72 6d 20 73 74 61 74 65 20 74 20 33 20 6d 61 70 63 61 72 20 28 6c 61 6d 62 64   ┆ker form state t 3 mapcar (lambd┆
0xb60…b80 61 20 28 78 29 20 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   ┆a (x) (byte-code "  D " [x quote┆
0xb80…ba0 5d 20 32 29 29 20 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   ┆] 2)) list quote append] 4))  (d┆
0xba0…bc0 65 66 75 6e 20 62 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   ┆efun bq-evallist (form) (byte-co┆
0xbc0…be0 64 65 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   ┆de "  B   " [tailmaker form] 2))┆
0xbe0…c00 0a 0a 28 64 65 66 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   ┆  (defun bq-evalappend (form) (b┆
0xc00…c20 79 74 65 2d 63 6f 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   ┆yte-code " <    @<    @@ =     @┆
0xc20…c40 09 08 40 41 42 5c 22 82 39 00 08 47 c6 55 83 32 00 09 08 42 89 10 88 c7 89 12 82 39 00 c4 09 44   ┆  @AB\" 9  G U 2   B       9   D┆
0xc40…c60 08 42 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   ┆ B   " [tailmaker form state t l┆
0xc60…c80 69 73 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   ┆ist rplacd 1 cons] 4))  (defun b┆
0xc80…ca0 71 2d 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   ┆q-evalnil (form) (byte-code " C ┆
0xca0…cc0 10 88 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   ┆      " [tailmaker form state li┆
0xcc0…ce0 73 74 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   ┆st] 2))  (defun bq-splicecons (f┆
0xce0…d00 6f 72 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   ┆orm) (byte-code "   @ A@ED      ┆
0xd00…d20 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 63 6f 6e 73 20 61 70   ┆ " [tailmaker form state cons ap┆
0xd20…d40 70 65 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   ┆pend] 4))  (defun bq-splicequote┆
0xd40…d60 20 28 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   ┆ (form) (byte-code "   CDD      ┆
0xd60…d80 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 71 75 6f 74 65 20 61   ┆ " [tailmaker form state quote a┆
0xd80…da0 70 70 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   ┆ppend] 3))  (defun bq-splicelist┆
0xda0…dc0 20 28 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   ┆ (form) (byte-code "   BD       ┆
0xdc0…de0 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 20 61 70 70   ┆" [tailmaker form state list app┆
0xde0…e00 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 61 70 70 65 6e 64   ┆end] 3))  (defun bq-spliceappend┆
0xe00…e20 20 28 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   ┆ (form) (byte-code "  B   " [tai┆
0xe20…e40 6c 6d 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   ┆lmaker form] 2))  (defun bq-spli┆
0xe40…e60 63 65 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   ┆cenil (form) (byte-code "     C ┆
0xe60…e80 11 87 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   ┆  " [state tailmaker form append┆
0xe80…e86 5d 20 32 29 29 0a   ┆] 2)) ┆