anchor.diff:  (defun ecl-clean (argv)
     (format t "~&Cleaning~%")
     (let ((src (get-opt "src")))
  -    (uiop/os:chdir src)
  -    (format t "~&chdir ~A~%" src)
  +    (ros.util:chdir src nil)
       (let* ((out (make-broadcast-stream))
              (*standard-output* (make-broadcast-stream
                                  out #+sbcl(make-instance 'count-line-stream))))
  
positive.code:     (let* ((src (get-opt "src"))
             (cmd (format nil "./configure '--prefix=~A'" (get-opt "prefix")))
             (*standard-output* (make-broadcast-stream out #+sbcl(make-instance 'count-line-stream))))
        (uiop/os:chdir src)
        (format t "~&chdir ~A~%" src)
        (uiop/run-program:run-program cmd :output t :ignore-error-status t)))
    (cons t argv))
  
  
negative.code:     (download "https://common-lisp.net/project/ecl/files/" file)
      (with-output-to-string (*standard-output*)
        (funcall (intern (string :quickload) :ql)
                 :plump))
      (let* ((the-newest "current-release.tgz")
             (tgz-list
              (sort
  