anchor.diff:  
   (define-c-std-macro defmacro (name &rest x)
     (when *show-definitions*
  -    (print `(defmacro ,name )))
  +    (late-print `(defmacro ,name ,@x.)))
     (eval (transpiler-macroexpand *c-transpiler*
   								`(define-c-std-macro ,name ,@x)))
     nil)
  
positive.code: (define-c-std-macro defvar (name val)
    (let tr *c-transpiler*
      (when *show-definitions*
        (print `(defvar ,name)))
      (when (transpiler-defined-variable tr name)
        (error "variable ~A already defined" name))
      (transpiler-add-defined-variable tr name)
  
negative.code: ;; XXX This could be generic if there wasn't *JS-TRANSPILER*.
  (defun c-essential-defun (name args &rest body)
    (when *show-definitions*
      (late-print `(defun ,name ,@args)))
    (with (n (%defun-name name)
  		 tr *c-transpiler*
  		 fi-sym (when (eq '%FUNINFO args.)
  