PythonプログラマーのためのCommon Lispコード解説 06
6. fetch-html 関数 ypooo.hatenablog.com (defun fetch-html (url) (handler-case (multiple-value-bind (body status) (drakma:http-request url :connection-timeout 10 :force-binary t) (if (= status 200) (babel:octets-to-string body :encoding :utf-8) (progn (warn "HTTP error: ~A (Status: ~A)" url status) …
