webページを取ってきて表示するミュージアム
GETの場合
;; connect (with-open-stream (stream (connect "www1.odn.ne.jp" 80)) (format stream "GET /ymtz/archive/packages.l HTTP/1.0\n\n") (while (setq in (read-line stream nil)) (insert in "\n"))) ;; netinstaller (with-open-stream (stream (ni::http-get "www1.odn.ne.jp" "/ymtz/archive/packages.l") ) (while (setq in (read-line stream nil)) (insert in "\n"))) ;; junk-script (with-open-stream (stream (junk::junk-http-get-url "http://www1.odn.ne.jp/ymtz/archive/packages.l") ) (while (setq in (read-line stream nil)) (insert in "\n")))