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:           (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:      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
  