anchor.diff:  
   (var *compiler-macro-expander* (define-expander 'compiler :pre #'init-compiler-macros))
   
  -(defmacro define-compiler-macro (name args &body x)
  -  (print-definition `(define-compiler-macro ,name ,args))
  +(defmacro def-compiler-macro (name args &body x)
  +  (print-definition `(def-compiler-macro ,name ,args))
     `(def-expander-macro *compiler-macro-expander* ,name ,args ,@x))
   
   (fn compiler-macroexpand (x)
     (expander-expand *compiler-macro-expander* x))
   
  -(define-compiler-macro cond (&rest args)
  +(def-compiler-macro cond (&rest args)
     (with-compiler-tag end-tag
       `(%%block
          ,@(mapcan [with-compiler-tag next
  
positive.code: (def-expander-macro *tagbody-expander* tagbody (&body body)
    (tagbodyexpand body))
  
  (define-compiler-macro tagbody (&body body)
    (tagbodyexpand body))
  
  
  
negative.code:        ,end-tag
         (identity ~%ret))))
  
  (def-compiler-macro progn (&body body)
    (!? body
        `(%%block ,@(wrap-atoms !))))
  
  (def-compiler-macro setq (&rest args)
    `(%%block ,@(@ [`(%= ,_. ,._.)]
                   (group args 2))))
  
  (def-compiler-macro ? (&body body)
    (with (tests (group body 2)
           end   (car (last tests)))
      (unless body
  