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 *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:SETQ *DEFINITION-PRINTER* #'CL:PRINT)
  (CL:SETQ *CURRENT-MACRO* NIL)
  (CL:SETQ *MACROEXPAND-PRINT?* 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))
  