asdf-install & Windows

Thanks to Nate's latest release of archive we can now use asdf-install on Windows
without resorting to cygwin or gnu-tar. Just add the following to your .asdf-install.

(asdf:oos 'asdf:load-op :gzip-stream)
(asdf:oos 'asdf:load-op :archive :version "0.6")

(defun asdf-install-extractor (to-dir tarball)
(let ((name nil))
  (gzip-stream:with-open-gzip-file (ins tarball)
    (archive:with-open-archive (archive ins)
      (let ((*default-pathname-defaults* (pathname to-dir)))
        (archive:do-archive-entries (entry archive name)
          (archive:extract-entry archive entry)
          (unless name (setf name (archive:name entry)))))))
  ;; we use string instead of namestring because
  ;; asdf-install searches for /'s and not \'s
  ;; which will break on windows
  (string name)))

(push 'asdf-install-extractor asdf-install:*tar-extractors*)

You will still get an error along the lines of
"'gpg' is not recognized as an internal or external command,"
but select the continue restart and all should be fine and dandy.


---
This post is courtesy of lispworks(5.0.2), gzip-stream(0.1), asdf-install(0.5.5) and archive(0.6).