asdf-install が動かない

Windows の sbcl で asdf-insatll が動かないので、 asdf-install は使わずに、 ~/.sbclrc に次のコードを書くことに。

(require :asdf)

(loop for dir in (directory (merge-pathnames
        "site-systems/*/"
        (truename (posix-getenv "SBCL_HOME"))))
      do (pushnew dir asdf:*central-registry* :test #'equal))