anchor.diff:  (defun %print-atom (x str info)
     (%with-padding str info
       (?
  -      (symbol? x)     (%print-symbol x str)
  +      (symbol? x)     (%print-symbol x str info)
         (character? x)  (%print-character x str)
         (number? x)     (princ x str)
         (string? x)     (%print-string x str)
  
positive.code:       (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-array (x str info)
    (princ "#" str)
  
negative.code: 
  (defstruct print-info
    (pretty-print?  nil)
    (downcase?      nil)
    (indentation    0)
    (no-padding?    t))
  
  