anchor.diff:  
   (defun print-objc-class-hierarchy ()
     (setf *classes* (make-hash-table))
  +  #+#.(cl:if (cl:find-package "NS") '(:and) '(:or))
     (convert-class-tree 'ns:ns-object)
     (classify-classes)
     (print-class-hierarchy))
  
positive.code: 
  
  
  (shadow '(class class-name find-class))
  (defstruct class
    name
    file
  
negative.code: ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  ;;;;**************************************************************************
  
  (in-package "COMMON-LISP-USER")
  (declaim (declaration also-use-packages))
  (declaim (also-use-packages "COM.INFORMATIMAGO.COMMON-LISP.PICTURE.TREE-TO-ASCII"))
  
  (defpackage "COM.INFORMATIMAGO.READ-SOURCES"
    (:use "COMMON-LISP"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.GRAPH"
          "COM.INFORMATIMAGO.TOOLS.DEPENDENCY-CYCLES"
          "COM.INFORMATIMAGO.TOOLS.ASDF-FILE")
    (:export "READ-SOURCES" "*CONTENTS*")
    (:shadow "CLASS" "CLASS-NAME" "FIND-CLASS"))
  (in-package "COM.INFORMATIMAGO.READ-SOURCES")
  
  (defun safe-find-package (designator)
  