anchor.diff:                   :directory '(:absolute)
                    :name nil :type nil :version nil))
   
  +(defun* find-symbol* (s p)
  +  (find-symbol (string s) p))
  +
   (defun* probe-file* (p)
     "when given a pathname P, probes the filesystem for a file or directory
   with given pathname and if it exists return its truename."
  
positive.code:     (setf excl:*warn-on-nested-reader-conditionals* nil)))
  
  ;;;; -------------------------------------------------------------------------
  ;;;; ASDF Interface, in terms of generic functions.
  (macrolet
      ((defdef (def* def)
         `(defmacro ,def* (name formals &rest rest)
  
negative.code:              (,',def ,name ,formals ,@rest)))))
    (defdef defgeneric* defgeneric)
    (defdef defun* defun))
  
  (defmacro while-collecting ((&rest collectors) &body body)
    "COLLECTORS should be a list of names for collections.  A collector
  