2005-11-08から1日間の記事一覧
(defun fortune-cookie () "fortune cookie" (interactive) (let ((in)) (with-open-stream (stream (connect "www.new-year.co.uk" 80)) (format stream "GET /chinese/cookie.cfm HTTP/1.1\nHost: www.new-year.co.uk:80\n\n") (set-stream-encoding strea…