anchor.diff:               (t? x)
                *always-print-package-names?*)
       (alet (package-name (symbol-package x))
  -      (| (string== ! "TRE")
  -         (string== ! "TRE-CORE")))))
  +      (some [string== ! _] *invisible-package-names*))))
   
   (defun %print-symbol (x str info)
     (awhen (& x
  
positive.code:       (%late-print .x. str info)
        (%print-gap str)
        (%late-print (car ..x.) str info)
        (fresh-line str)
        (push ! (print-info-columns info))
        (%print-body (cdr ..x.) str info)
        (pop (print-info-columns info)))))
  
negative.code:   (%with-brackets str info
      (++! (car (print-info-columns info)))
      (%late-print (car .x.) str info)
      (& *print-automatic-newline?*
         (fresh-line str))
      (%print-body (cdr .x.) str info))
      (--! (car (print-info-columns info))))
  
  