quicklisp on windows上の処理系(clozureCL&sbcl)でちゃんと動かないときのパッチ

versionは2010101600で当ててます。

原因はql:*quicklisp-home*がドライブレターが入ってないので自分で正しいパスをセットしてやれば動きます。
自分は面倒だったのでパッチ用意しました。

--- quicklisp.org/setup.lisp    2010-10-28 13:02:57.808556700 +0900
+++ quicklisp/setup.lisp        2010-10-28 13:29:34.191965700 +0900
@@ -10,7 +10,13 @@
   (error "This file must be LOADed to set up quicklisp."))

 (defvar *quicklisp-home*
-  (pathname (directory-namestring *load-truename*)))
+  (cond
+    ((or (member :win32 *features*)
+        (member :windows *features*))
+     (make-pathname :device (pathname-device *load-truename*)
+                   :directory (pathname-directory *load-truename*)))
+    (t (pathname (directory-namestring *load-truename*)))))
+

 (defun qmerge (pathname)
   (merge-pathnames pathname *quicklisp-home*))

clojure clとsbclで動作するはずです(clispは入ってないので試してないです)。