anchor.diff:  (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 NAME NIL (CL:BLOCK NAME (CL:BLOCK NIL (CL:AREF *TRANSPILER* 2))))
   (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)))
  
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 KEYWORD? (X) (CL:BLOCK KEYWORD? (CL:BLOCK NIL (CL:COND ((SYMBOL? X) (EQ *KEYWORD-PACKAGE* (SYMBOL-PACKAGE X)))))))
  (CL:DEFUN =-PRINT-INFO-NO-PADDING? (VAL ARR) (CL:BLOCK =-PRINT-INFO-NO-PADDING? (CL:BLOCK NIL (CL:PROGN (=-AREF VAL ARR 5)))))
  (CL:DEFUN PRINT-INFO-NO-PADDING? (ARR) (CL:BLOCK PRINT-INFO-NO-PADDING? (CL:BLOCK NIL (CL:AREF ARR 5))))
  (CL:DEFUN %PRINT-CONS (X STR INFO) (CL:BLOCK %PRINT-CONS (CL:BLOCK NIL (CL:LABELS ((~G1618 (!) (CL:COND (! (%PRINT-ABBREVIATION ! X STR INFO)) (T (%PRINT-LIST X STR INFO))))) (~G1618 (CL:COND ((NOT (CL:CDR (CL:CDR X))) (ASSOC (CL:CAR X) *PRINTER-ABBREVIATIONS* :TEST #'EQ))))))))
  (CL:DEFUN %PRINT-LIST (X STR INFO) (CL:BLOCK %PRINT-LIST (CL:BLOCK NIL (CL:PROGN (CL:COND ((PRINT-INFO-NO-PADDING? INFO) (CL:PROGN (=-PRINT-INFO-NO-PADDING? NIL INFO))) (T (PRINC " " STR))) (PRINC "(" STR) (CL:PROGN (=-PRINT-INFO-NO-PADDING? T INFO)) (%LATE-PRINT (CL:CAR X) STR INFO) (CL:LABELS ((~G1619 (!) (CL:COND (! (%PRINT-CALL (CL:CDR X) ! STR INFO)) (T (%PRINT-REST (CL:CDR X) STR INFO))))) (~G1619 (%PRINT-CALL? X INFO))) (PRINC ")" STR)))))
  (CL:DEFUN %PRINT-REST (X STR INFO) (CL:BLOCK %PRINT-REST (CL:BLOCK NIL (CL:COND (X (CL:PROGN (CL:COND ((CONS? X) (CL:PROGN (%LATE-PRINT (CL:CAR X) STR INFO) (%PRINT-REST (CL:CDR X) STR INFO))) (T (CL:PROGN (PRINC " . " STR) (%PRINT-ATOM X STR INFO))))))))))
  (CL:DEFUN %PRINT-CALL (X ARGDEF STR INFO) (CL:BLOCK %PRINT-CALL (CL:BLOCK NIL (%PRINT-ARGS (%PRINT-GET-ARGS X ARGDEF) STR INFO))))
  