anchor.diff:       (adotimes ((print-info-indentation info))
          (princ " " str))))
   
  -(defmacro %with-padding (str info &body body)
  +(defmacro %with-indentation (str info &body body)
     `(progn
        (%print-indentation ,str ,info)
        ,@body))
   
   (defmacro %with-brackets (str info &body body)
  -  `(%with-padding ,str, info
  +  `(%with-indentation ,str, info
        (princ "(" ,str)
        ,@body
        (princ ")" ,str)))
  
positive.code:         (%print-rest .x str info))))
  
  (defun %print-abbreviation (abbreviation x str info)
    (%with-padding str info
      (princ .abbreviation. str)
      (%late-print .x. str info)))
  
  
negative.code:   (princ x str))
  
  (defun %late-print (x str info)
    (%with-indentation str info
      (pcase x
        cons?       (%print-cons x str info)
        symbol?     (%print-symbol x str info)
  