anchor.diff:             (*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)))
  +      (format t "~&~S~%" cmd)
  +      (uiop/run-program:run-program cmd :output t :ignore-error-status nil)))
     (cons t argv))
   
   (defun sbcl-install (argv)
  
positive.code:                                   out #+sbcl(make-instance 'count-line-stream))))
            (uiop/run-program:run-program
             (list (sh) "-lc" (format nil "cd ~S;~A"
                                      (#+win32 mingw-namestring #-win32 identity src)
                                      "./install.sh")) :output t)))
        (format *error-output* "done.~%")))
    (cons t argv))
  
negative.code:     (let* ((src (get-opt "src"))
             (compiler (format nil "~A lisp=~A --no-rc run -- --disable-debugger" *ros-path* (get-opt "sbcl.compiler")))
             (cmd (list (sh) "-lc" (format nil "cd ~S;~A ~A ~A"
                                           (#+win32 mingw-namestring #-win32 princ-to-string src)
                                           "./make.sh" (format nil "'--xc-host=~A'"  compiler)
                                           (format nil "'--prefix=~A'"
                                                   (funcall #+win32 (lambda (x)
  