anchor.diff:  ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
   ;;;;**************************************************************************
   
  -(cl:in-package :cl-user)
  -(ql:quickload :com.informatimago.common-lisp.cesarum)
  -(ql:quickload :com.informatimago.clext)
  -(ql:quickload :closer-mop)
  -
  -(load "asdf-file.lisp")
  +(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.DEPENDENCY-CYCLES"
  -        "COM.INFORMATIMAGO.ASDF-FILE")
  -  (:export "READ-SOURCES" "*CONTENTS*"))
  +        "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)
  
positive.code:                                                     (function dependencies)))
                       (tlee class)))
                   (or (gethash 'root nodes)
                       (gethash 'objc:objc-object nodes)
                       (gethash 'ns:ns-object nodes))))
          (*package* (or (cl:find-package :pw)
                         (safe-find-package :cl-user))))
  
negative.code: 
  
  
  
  (defstruct class
    name
    file
  