(provide (quote backquote)) (defmacro push (v l) "Pushes evaluated first form onto second unevaluated object a list-value atom" (byte-code "ÂÃ EE‡" [l v setq cons] 5)) (defmacro caar (l) (byte-code "ÁÁDD‡" [l car] 3)) (defmacro cadr (l) (byte-code "ÁÂDD‡" [l car cdr] 3)) (defmacro cdar (l) (byte-code "ÁÂDD‡" [l cdr car] 3)) (defmacro cddr (l) (byte-code "ÁÁDD‡" [l cdr] 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] 3)) (defun bq-make-maker (form) "\ Given one argument, a `mostly quoted' object, produces a maker. See backquote.el for details" (byte-code "ÄÈÈÉÊË !\"ˆ…; Ì=ƒ D‚; GÍUƒ3 ÎÏ\"A@\"‚; …; B,‡" [tailmaker qc ec state nil form bq-singles t 0 mapcar bq-iterative-list-builder reverse quote 1 funcall assq] 15)) (defconst bq-singles (quote ((quote bq-quotecar) (append car) (list bq-make-list) (cons bq-id)))) (defun bq-id (x) (byte-code "‡" [x] 2)) (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@\"‚o @>ƒ'