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:            (%print-gap str)
             (?
               (& (%body? .!) ..!)  (progn
                                      (fresh-line str)
                                      (%print-body ..! str info))
               (%rest? .!)          (%print-rest ..! str info)
               (%key? .!)           (progn
  
negative.code:       (adolist x
          (? first?
             (= first? nil)
             (& *print-automatic-newline?*
                (fresh-line str)))
          (%late-print ! str info)))))
  
  (defun %print-call (x argdef str info)
  