anchor.diff:      (or
        sentinel
        (not (setf sentinel t))
  -     (when (and (find :asdf *features*)
  -                (opt "asdf")
  -                (not (equal (opt "asdf")
  -                            (funcall (read-from-string "asdf:asdf-version")))))
  +     (when (and (opt "asdf")
  +                (or (and (find :asdf *features*)
  +                         (not (equal (opt "asdf")
  +                                     (funcall (read-from-string "asdf:asdf-version")))))
  +                    (not (find :asdf *features*)))
  +                (probe-file (merge-pathnames (format nil "lisp/asdf/~A/asdf.lisp" (opt "asdf")) (opt "homedir"))))
          (ignore-errors
            (locally
                (declare #+sbcl(sb-ext:muffle-conditions sb-kernel:redefinition-warning))
  
positive.code:                (#+sbcl(sb-kernel:redefinition-warning #'muffle-warning))
               (cl:load (merge-pathnames (format nil "lisp/asdf/~A/asdf.lisp" (opt "asdf")) (opt "homedir")))))))
       (find :asdf *features*)
       (ignore-errors (require :asdf)))))
  
  #+(and unix sbcl) ;; from swank
  (progn
  
negative.code:                                (and environment (getenv environment))
                                 (opt "quicklisp")))))
        (when (probe-file path)
  	(cl:load path)
  	(let ((symbol (read-from-string "ql:*local-project-directories*")))
            (when (or (ignore-errors (probe-file path))
                      #+clisp(ext:probe-directory path))
              (set symbol (cons (merge-pathnames "local-projects/" (opt "homedir"))
  