anchor.diff:      (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)
  +      (ros.util:chdir src)
         (uiop/run-program:run-program cmd :output t :ignore-error-status t)))
     (cons t argv))
   
  
positive.code: (defun ecl-clean (argv)
    (format t "~&Cleaning~%")
    (let ((src (get-opt "src")))
      (uiop/os:chdir src)
      (format t "~&chdir ~A~%" src)
      (let* ((out (make-broadcast-stream))
             (*standard-output* (make-broadcast-stream
                                 out #+sbcl(make-instance 'count-line-stream))))
  
negative.code:     (let* ((src (namestring (get-opt "src")))
             (cmd (format nil "make"))
             (*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))
  
  