anchor.diff:  (in-package :ros.install)
   
  +#+sbcl
   (defclass count-line-stream (sb-gray:fundamental-character-output-stream)
     ((base :initarg :base 
            :initform *standard-output*
  
positive.code:                (funcall char stream))
         (force-output stream-))))
  
  (defun line-number (stream)
    (format (count-line-stream-base stream) "~&~8d " (count-line-stream-count stream)))
  
  
negative.code:   (cons t argv))
  
  (defun sbcl-download (argv)
    (if (or (not (probe-file (get-opt "download.archive")))
            (get-opt "download.force"))
        (progn
          (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")))
        (format t "~&Skip downloading ~A~%specify download.force=t to download again.~%"
                (get-opt "download.uri")))
    (cons t argv))
  
  (defun sbcl-expand (argv)
  