HTTPリクエストの中身を表示するだけのHTTPサーバ - sileのブログタイトルの通りのHTTPサーバを作成。 というか、ほとんど何も行っていないので、HTTPサーバとは云えないような気もする...。 ソースコード (require :sb-bsd-sockets) (use-package :sb-bsd-sockets) ;; 定数 (defconstant CRLF (coerce '(#\Return #\Newline) 'string)) (defconstant CR-code (char-code #\Return)) (defconstant LF-code (char-code #\Newline)) ;; HTTP接続の準備とかを行ってくれるマクロ (defmacro do-http-stream ((stream listen-address listen-port) &body body) (let ((sock (gensym))
