Windows上のClozure CLでhunchentoot

http://d.hatena.ne.jp/t2ru/20101205/1291537110
のやり方でasdf-installを使えるようになったのは良いが、hunchentootをインストールしようとしたときにCL+SSLでエラーが出てしまう。

O_NONBLOCKというのがないと言われてた。

いいのかどうかは不明だが、下記の方法でとりあえずデフォルトページが動くところまではできた。

変更前
#+clozure-common-lisp
(defun install-nonblock-flag (fd)
  (ccl::fd-set-flags fd (logior (ccl::fd-get-flags fd) 
                     #.(read-from-string "#$O_NONBLOCK"))))
                     ;; read-from-string is necessary because
                     ;; CLISP and perhaps other Lisps are confused
                     ;; by #$, signaling"undefined dispatch character $", 
                     ;; even though the defun in conditionalized by 
                     ;; #+clozure-common-lisp
変更後
#+(and clozure-common-lisp (not win32))
(defun install-nonblock-flag (fd)
  (ccl::fd-set-flags fd (logior (ccl::fd-get-flags fd) 
                     #.(read-from-string "#$O_NONBLOCK"))))
                     ;; read-from-string is necessary because
                     ;; CLISP and perhaps other Lisps are confused
                     ;; by #$, signaling"undefined dispatch character $", 
                     ;; even though the defun in conditionalized by 
                     ;; #+clozure-common-lisp