anchor.diff:    (second (assoc param (ros-opts) :test 'equal)))
   
   (defun verbose ()
  -  (let ((ret (parse-integer (ros:opt "verbose"))))
  +  (let ((ret (parse-integer (opt "verbose"))))
       (if (zerop ret)
           nil ret)))
   
  
positive.code: (defvar *downloaded-asdf-loaded* nil)
  (defun asdf ()
    (unless *downloaded-asdf-loaded*
      (let* ((version-installed (ros:opt "asdf.version"))
             (version (or version-installed
                          (progn (roswell '("ros" "asdf" "install"))
                                 (roswell '("config" "show" "asdf.version") :string t)))))
  
negative.code:           (t (cl:print "tbd.....")))))
  
  #+sbcl
  (when (ignore-errors (string-equal (opt "impl") "sbcl-bin" :end1 8))
    (let ((path (merge-pathnames (format nil "src/sbcl-~A/" (lisp-implementation-version)) (opt "homedir"))))
      (when (probe-file path)
        (sb-ext:set-sbcl-source-location path))))
  