anchor.diff:  (defvar *downloaded-asdf-loaded* nil)
   (defun asdf ()
     (unless *downloaded-asdf-loaded*
  -    (let* ((version-installed (ros:opt "asdf.version"))
  +    (let* ((version-installed (opt "asdf.version"))
              (version (or version-installed
                           (progn (roswell '("ros" "asdf" "install"))
                                  (roswell '("config" "show" "asdf.version") :string t)))))
  
positive.code:   (second (assoc param (ros-opts) :test 'equal)))
  
  (defun verbose ()
    (let ((ret (parse-integer (ros:opt "verbose"))))
      (if (zerop ret)
          nil ret)))
  
  
negative.code:      sentinel
       (not (setf sentinel t))
       (when (and (find :asdf *features*)
                  (opt "asdf")
                  (not (equal (opt "asdf")
                              (funcall (read-from-string "asdf:asdf-version")))))
         (ignore-errors
           (locally
  