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")))