anchor.diff:              (let* ((version-installed (opt "asdf.version"))
                      (version (or version-installed
                                   (unless no-download
  -                                  (roswell '("ros" "install" "asdf"))
  +                                  (roswell '("install" "asdf"))
                                     (roswell '("config" "show" "asdf.version") :string t))))
                      (path (merge-pathnames (format nil "lisp/asdf/~A/asdf.lisp" version) (opt "homedir"))))
                 (when (equal version "NIL")
  
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
  