anchor.diff:       (:function copy-pprint-dispatch)
        (:macro formatter)
        (:function pprint-dispatch)
  -     (:local-macro  pprint-exit-if-list-exhausted)
  +     (:local-macro pprint-exit-if-list-exhausted)
        (:function pprint-fill)
        (:function pprint-linear)
        (:function pprint-tabular)
  
positive.code:      (:function pathname-name)
       (:function pathname-type)
       (:function pathname-version)
       (:function  load-logical-pathname-translations)
       (:accessor  logical-pathname-translations)
       (:function logical-pathname)
       (:variable  *default-pathname-defaults*)
       (:function namestring)
       (:function file-namestring)
       (:function directory-namestring)
  
negative.code:      (:variable *print-readably*)
       (:variable *print-right-margin*)
       (:condition-type print-not-readable)
       (:function print-not-readable-object)
       (:function format))
      ((23 "Reader")
       (:system-class readtable)
       (:function copy-readtable)
       (:function make-dispatch-macro-character)
       (:function read)
       (:function read-preserving-whitespace)
       (:function read-delimited-list)
       (:function read-from-string)
       (:accessor readtable-case)
       (:function readtablep)
       (:function set-dispatch-macro-character)
       (:function get-dispatch-macro-character)
       (:function set-macro-character)
       (:function get-macro-character)
       (:function set-syntax-from-char)
       (:macro with-standard-io-syntax)
       (:variable *read-base*)
       (:variable *read-default-float-format*)
       (:variable *read-eval*)
       (:variable *read-suppress*)
       (:variable *readtable*)
  