anchor.diff:      (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
  -                                out
  -                                (make-instance 'count-line-stream))))
  +                                out #+sbcl(make-instance 'count-line-stream))))
           (uiop/run-program:run-program "sh install.sh" :output t)))
       (format t"done.~%"))
     (cons t argv))
  
positive.code:   (cons t argv))
  
  (defun sbcl-download (argv)
    (when (get-opt "download.skip")
      (format t "~&Skip downloading ~A~%" (get-opt "download.uri"))
      (return-from sbcl-download
        (cons t argv)))
    (format t "~&Downloading archive.:~A~%" (get-opt "download.uri"))
    ;;TBD proxy support... and other params progress bar?
    (download (get-opt "download.uri") (get-opt "download.archive"))
    (cons t argv))
  
  (defun sbcl-expand (argv)
  
negative.code:     (let* ((src (get-opt "src"))
             (compiler (format nil "~A lisp=~A --no-rc run --" *ros-path* (get-opt "sbcl.compiler")))
             (cmd (format nil "sh make.sh \"--xc-host=~A\" \"--prefix=~A\"" compiler (get-opt "prefix")))
             (*standard-output* (make-broadcast-stream out #+sbcl(make-instance 'count-line-stream))))
        (uiop/os:chdir src)
        (uiop/run-program:run-program cmd :output t)))
    (cons t argv))
  