(provide (quote backquote)) (defmacro bq-push (v l) "Pushes evaluated first form onto second unevaluated object a list-value atom" (byte-code "ÂÃ EE‡" [l v setq cons] 5)) (defmacro bq-caar (l) (byte-code "ÁÁDD‡" [l car] 3)) (defmacro bq-cadr (l) (byte-code "ÁÂDD‡" [l car cdr] 3)) (defmacro bq-cdar (l) (byte-code "ÁÂDD‡" [l cdr car] 3)) (defconst backquote-unquote (quote (\,)) "\ *A list of all objects that stimulate unquoting in `. Memq test.") (defconst backquote-splice (quote (\,@)) "\ *A list of all objects that stimulate splicing in `. Memq test.") (defmacro \` (form) "(` FORM) Expands to a form that will generate FORM. FORM is `almost quoted' -- see backquote.el for a description." (byte-code "Á!‡" [form bq-make-maker] 2)) (defun bq-make-maker (form) "\ Given one argument, a `mostly quoted' object, produces a maker. See backquote.el for details" (byte-code "ÄÈÈÄÉÊË !\"ˆ…6 Ì=ƒ D‚6 GÍUƒ3 ÎÏ\"A@\"‚6 B,‡" [tailmaker qc ec state nil form bq-singles t 0 mapcar bq-iterative-list-builder reverse quote 1 funcall assq] 6)) (defconst bq-singles (quote ((quote bq-quotecar) (append car) (list bq-make-list) (cons bq-id)))) (defun bq-id (x) (byte-code "‡" [x] 1)) (defun bq-quotecar (x) (byte-code "Á@D‡" [x quote] 2)) (defun bq-make-list (x) (byte-code "ÁB‡" [x list] 2)) (defun bq-iterative-list-builder (form) "\ Called by bq-make-maker. Adds a new item form to tailmaker, changing state if need be, so tailmaker and state constitute a recipie for making the list so far." (byte-code "É!ƒ ÊË \"A@\"‚j @>ƒ'