anchor.diff:  
   (defstruct print-info
     (pretty-print?  nil)
  +  (downcase?      nil)
     (indentation    0)
     (no-padding?    t))
   
  
positive.code:   (%print-args (%print-get-args x argdef) str info))
  
  (defun %print-abbreviation (abbreviation x str info)
    (princ abbreviation)
    (%with-brackets str info
      (%late-print .x. str info)))
  
  
negative.code:       (princ i str)))
    (princ #\" str))
  
  (defun %print-symbol (x str info)
    (with (conv [? (print-info-downcase? info)
                   (string-downcase _)
                   _])
      (princ (conv (symbol-name x)) str)
      (awhen (symbol-package x)
        (princ #\: str)
        (princ (conv (symbol-name !)) str))))
  
  (defun %print-array (x str info)
    (princ "#" str)
  