anchor.diff:        (princ i str)))
     (princ #\" str))
   
  -(defun %print-symbol (x str)
  -  (awhen (symbol-package x)
  -    (princ (symbol-name !) str)
  -    (princ #\: str))
  -  (princ (symbol-name x) 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)
  
positive.code: 
  (defstruct print-info
    (pretty-print?  nil)
    (indentation    0)
    (no-padding?    t))
  
  
negative.code:   (%print-args (%print-get-args x argdef) str info))
  
  (defun %print-abbreviation (abbreviation x str info)
    (princ abbreviation str)
    (%with-brackets str info
      (%late-print .x. str info)))
  
  