anchor.diff:      do (push name *included-names*)
          (and (probe-file path)
               (not (equal provide name))
  -            (cl:load path))))
  +            (funcall 'load path))))
   
   (defmacro deplicated-fun (name lambda-list include read date)
     `(defun ,name ,lambda-list
  
positive.code:       (setf sentinel
              (or sentinel
                  (when (and (opt "asdf")
                             (or (and (find :asdf *features*)
                                      (not (equal (opt "asdf")
                                                  (funcall (read-from-string "asdf:asdf-version")))))
                                 (not (find :asdf *features*))))
                    (funcall 'asdf :no-download t))
                  (find :asdf *features*)
                  (ignore-errors (require "asdf")))
  
negative.code:                      (declare #+sbcl(sb-ext:muffle-conditions sb-kernel:redefinition-warning))
                     (handler-bind
                         (#+sbcl(sb-kernel:redefinition-warning #'muffle-warning))
                       (funcall 'load path)))))))))
  
  (let ((symbol (ignore-errors (read-from-string "asdf::*user-cache*")))
        (impl (substitute #\- #\/ (opt "impl"))))
  