anchor.diff:  
   (defun ccl-bin-expand (argv)
     (format t "~%Extracting archive.:~A~%" (get-opt "download.archive"))
  -  (expand (get-opt "download.archive")
  -          (ensure-directories-exist (merge-pathnames (format nil "impls/~A/~A/ccl-bin/" (uname-m) (uname%)) (homedir))))
  +  (#-win32 expand #+win32 zip:unzip
  +           (get-opt "download.archive")
  +           (ensure-directories-exist (merge-pathnames (format nil "impls/~A/~A/ccl-bin/" (uname-m) (uname%)) (homedir))))
     (let ((path (merge-pathnames (format nil "impls/~A/~A/ccl-bin/~A/" (uname-m) (uname%) (get-opt "as")) (homedir))))
       (and (probe-file path)
            (uiop/filesystem:delete-directory-tree 
  
positive.code: (in-package :ros.install)
  
  (defun ccl-bin-get-version ()
    (let (result
  
negative.code:                                              (char= (aref href (1- len)) #\/))
                                      (push (string-right-trim "/" href) result))))))
                 :callback-only t))
      (format t "~%ccl-bin ~s to install~%" (first result))
      result))
  
  (defun ccl-bin-version (argv)
  