anchor.diff:       sentinel
        (not (setf sentinel t))
        (when (and (find :asdf *features*)
  -                (ros:opt "asdf")
  -                (not (equal (ros:opt "asdf")
  +                (opt "asdf")
  +                (not (equal (opt "asdf")
                               (funcall (read-from-string "asdf:asdf-version")))))
          (ignore-errors
            (locally
  
positive.code:           (t (cl:print "tbd.....")))))
  
  #+sbcl
  (when (ignore-errors (string-equal (ros: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))))
  
negative.code:   (second (assoc param (ros-opts) :test 'equal)))
  
  (defun verbose ()
    (let ((ret (parse-integer (opt "verbose"))))
      (if (zerop ret)
          nil ret)))
  
  