anchor.diff:      (format t "~&prefix: ~s~%" impl-path)
       (ensure-directories-exist impl-path)
       (ensure-directories-exist log-path)
  -    (uiop/os:chdir src)
  -    (format t "~&chdir ~A~%" src)
  +    (ros.util:chdir src)
       (with-open-file (out log-path :direction :output :if-exists :append :if-does-not-exist :create)
         (format out "~&--~&~A~%" (date))
         (let ((*standard-output* (make-broadcast-stream
  
positive.code:         (uri "https://raw.githubusercontent.com/Homebrew/homebrew/2fb8cb1a2279f80dc89900b3ebaca9e5afc90494/Library/Formula/clisp.rb"))
      (format t "~&Downloading patch: ~A~%" uri)
      (download uri file)
      (uiop/os:chdir (get-opt "src"))
      (format t "~&chdir ~A~%" (get-opt "src"))
      (format t "~%Applying patch:~%")
      (uiop/run-program:run-program (format nil "git apply ~A" file) :output t))
    (cons t argv))
  
negative.code:                             "")
                          (get-opt "prefix")))
             (*standard-output* (make-broadcast-stream out #+sbcl(make-instance 'count-line-stream))))
        (ros.util:chdir src)
        (uiop/run-program:run-program cmd :output t :ignore-error-status t)))
    (cons t argv))
  
  