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