anchor.diff:  (CL:DEFVAR *DEFINITION-PRINTER*)
   (CL:DEFVAR *CURRENT-MACRO*)
   (CL:DEFVAR *MACROEXPAND-PRINT?*)
  -(CL:DEFVAR *TRANSPILER*)
   (CL:DEFVAR *PRINTER-ABBREVIATIONS*)
   (CL:DEFVAR *ALWAYS-PRINT-PACKAGE-NAMES?*)
   (CL:DEFVAR *STANDARD-OUTPUT*)
  
positive.code: (CL:SETQ *DEFINITION-PRINTER* #'CL:PRINT)
  (CL:SETQ *CURRENT-MACRO* NIL)
  (CL:SETQ *MACROEXPAND-PRINT?* NIL)
  (CL:SETQ *TRANSPILER* NIL)
  (CL:SETQ *PRINTER-ABBREVIATIONS* (CL:CONS (CL:CONS 'CL:QUOTE (CL:CONS "'" NIL)) (CL:CONS (CL:CONS 'BACKQUOTE (CL:CONS "`" NIL)) (CL:CONS (CL:CONS 'QUASIQUOTE (CL:CONS "," NIL)) (CL:CONS (CL:CONS 'QUASIQUOTE-SPLICE (CL:CONS ",@" NIL)) (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS "#'" NIL)) NIL))))))
  (CL:SETQ *ALWAYS-PRINT-PACKAGE-NAMES?* NIL)
  (CL:SETQ *STANDARD-OUTPUT* (MAKE-STANDARD-STREAM))
  
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)))
  