anchor.diff:  (CL:DEFUN IDENTITY (X) X)
   (CL:DEFVAR *GENSYM-COUNTER*)
   (CL:DEFVAR *GENSYM-PREFIX*)
  +(CL:DEFVAR *TRANSPILER*)
   (CL:DEFVAR *CURRENT-PASS-INPUT*)
   (CL:DEFVAR *MEMORIZED-NUMBERS*)
   (CL:DEFVAR *READER-FINDS-SYMBOLS?*)
  
positive.code: (CL:SETQ *KEYWORD-PACKAGE* (CL:FIND-PACKAGE "KEYWORD"))
  (CL:SETQ *GENSYM-COUNTER* 0)
  (CL:SETQ *GENSYM-PREFIX* "~G")
  (CL:SETQ *CURRENT-PASS-INPUT* NIL)
  (CL:SETQ *MEMORIZED-NUMBERS* (MAKE-HASH-TABLE :TEST #'==))
  (CL:SETQ *READER-FINDS-SYMBOLS?* NIL)
  
negative.code: (CL:DEFUN GROUP (X SIZE) (CL:BLOCK GROUP (CL:BLOCK NIL (CL:COND (X (CL:CONS (COPY-HEAD X SIZE) (GROUP (CL:NTHCDR SIZE X) SIZE)))))))
  (CL:DEFUN COPY-HEAD (X SIZE) (CL:BLOCK COPY-HEAD (CL:BLOCK NIL (CL:COND ((CL:COND (X (< 0 SIZE))) (CL:CONS (CL:CAR X) (COPY-HEAD (CL:CDR X) (-- SIZE))))))))
  (CL:DEFUN ARGUMENT-EXPAND-NAMES (FUN DEF) (CL:BLOCK ARGUMENT-EXPAND-NAMES (CL:BLOCK NIL (ARGUMENT-EXPAND FUN DEF NIL :APPLY-VALUES? NIL))))
  (CL:DEFUN %MACROEXPAND (X) (CL:COND ((CL:ATOM X) X) ((EQ (CL:CAR X) 'CL:QUOTE) X) ((EQ (CL:CAR X) 'BACKQUOTE) (CL:CONS 'BACKQUOTE (CL:APPLY *MACROEXPAND-BACKQUOTE* (CL:LIST (CL:CDR X))))) ((EQ (CL:CAR X) 'QUASIQUOTE) (CL:CONS 'QUASIQUOTE (%MACROEXPAND (CL:CDR X)))) ((EQ (CL:CAR X) 'QUASIQUOTE-SPLICE) (CL:CONS 'QUASIQUOTE-SPLICE (%MACROEXPAND (CL:CDR X)))) (T (%MACROEXPAND-CALL (%MACROEXPAND-REST X)))))
  (CL:DEFUN %MACROEXPAND-REST (X) (CL:COND ((CL:ATOM X) X) (T (CL:CONS (%MACROEXPAND (CL:CAR X)) (%MACROEXPAND-REST (CL:CDR X))))))
  (CL:DEFUN %MACROEXPAND-CALL (X) (CL:COND ((CL:APPLY *MACRO?* (CL:LIST X)) (%MACROEXPAND-XLAT X)) (T X)))
  