xyzzy
HTTP
(with-open-file (out "~/output.html" :direction :output :encoding :binary)
(with-open-stream (stream (connect "www.yahoo.co.jp" 80))
(set-stream-encoding stream :binary)
(format stream "GET / HTTP/1.0~%")
(format stream "~%")
(loop
(multiple-value-bind (line missing-newline-p)
(read-line stream nil)
(unless line (return))
(princ line out)
(unless missing-newline-p (terpri out))))))
* junk-library : site-lisp/junk/http.l `junk-http-download-file`
* http-client : README `http-download`