『Land Of Lisp』という書籍で簡易的なWebサーバを作る章の勉強をしています。
ポート8080にソケットを開いて、ブラウザで以下(p259)を入力したのですが、接続が拒否されてしまいます。

http://127.0.0.1:8080/greeting

Lisp
1;;処理系はClispです
2(defun serve (request-handler)
3  (let ((socket (socket-server 8080)))
4    (unwind-protect
5      (loop (with-open-stream (stream (socket-accept socket))
6        (let* ((url        (parse-url (read-line stream)))
7                  (path     (car url))
8                  (header (get-header stream))
9                  (params (append (cdr url)
10                                (get-content-params stream header)))
11                  (*standard-output* stream))
12              (funcall request-handler path header params))))
13       (socket-server-close socket))))

以下のコマンドでポート8080が正常に機能していることは確認済みですので、localhostに接続できていないことが原因であると考えています。

lsof -i :8080

いろいろと解決策を調べている中で、以下は試しました。
・ファイアーウォールの設定で、Google Chrome.appの接続を許可
・プロキシの設定で、「プロキシ設定を使用しないホストとドメイン」に*.localがあることを確認

原因の調査方法・調査観点などをご教示いただければと思います。
よろしくお願いします。

【追記】
Apacheの起動を行なっていなかったため、以下コマンドでhttp://localhostと打ち込んで「It works!」と表示されるところまでは確認できたのですが、ポート8080に接続しようとすると反応のない状況です。

sudo apachectl start

suama

2016/12/23 05:48

インターネットとの接続を切ったが状態で、ファイアウォールも無効化して確認することはできますか？お手元のpcからだとは思いますが。もしくは、違うプロセスが8080番を使っているかもしれません。

ikedas

2016/12/23 09:50

ご提示のソースコードが何ページに載っているか明記して下さい (書籍を見られる方が確認できるように)。あと、コードは正確に引用されているでしょうか (ご提示のコードを見る限り、socketに何か代入している箇所がないのですが)。

DaiAoki

2016/12/25 04:49

> suamaさん　確認しましたが、「127.0.0.1 ページは機能していません　ERR_INVALID_HTTP_RESPONSE」のエラーになりました。lsof -i :8080で調べると、COMMANDとして、lisp.runが8080を使っていることになっていたため、ポートの接続には問題ない状態です。

DaiAoki

2016/12/25 04:50

>ikedasさん　ご指摘の通り修正しました。また、ソースコードについてもご指摘の通りsocketを定義する箇所が漏れていたため修正しました。

ikedas

2016/12/25 05:39

書籍で確認できていなくてすみませんが、修正いただいた後のコードでは (let …) の括弧が (unwind-protect …) の前で閉じています。「socket」の直前に「(」がもう1個いるのでは。

DaiAoki

2016/12/25 05:46

>ikedasさん　ご指摘の通り誤記です。修正しました。

行動規範の内容に同意します

回答2件

原著の公式サイトを見つけました。ソースコードが掲載されていて、ご質問のコードとも一致するようです。これで試してみます。書籍は未入手です。

ブラウザを使ってアクセスすると、サーバのレスポンスを直接見ることができません。telnetコマンドを使って手作業でリクエストを送信、レスポンスを受け取ることにします (最近のオペレーティングシステムではtelnetが入っていないことがあるので、なければインストールして下さい)。別の端末を開いて、次のように実行・入力します。

bash
1$ telnet localhost 8080
2Trying 127.0.0.1...
3Connected to localhost.
4Escape character is '^]'.
5GET /greeting HTTP/1.1
6Host: localhost:8080
7
8<form>What is your name?<input name='name' /></form>Connection closed by foreign host.
9$ 
10

サーバが正しいレスポンスを返していません。接続はできているのに「ERR_INVALID_HTTP_RESPONSE」というエラーになるのはこのためでしょう。

上で説明していることの意味がわからなければ、まずHTTPというプロトコルについて調べて下さい (HTTPについては文中でも多少説明があるだろうと思いますが、必要に応じて他の参考書もご覧下さい)。

さて、以下いささか冗長とは思いますが、解決するために私がやったことを書きます。

単体テスト

いきなりプログラムを実行するのではなく、まず関数ごとにテストをしてみましょう。

アクセスするURLをhttp://localhost:8080/greetingと想定します。クライアントが送るリクエストは、つぎのようなものになります (実際のブラウザが送るものはもっと複雑ですが、単純化しています)。

投稿2016/12/26 03:40

ikedas

総合スコア4443

DaiAoki

2016/12/26 15:52

>ikedasさんとても詳しいご説明ありがとうございます。順を追った解決方法、とても参考になりました。 telnetによる操作で正常に動作するところまで確認できたのですが、ブラウザでアクセスしようとすると拒否されてしまいます。今後、ブラウザを使ったグラフィカルな開発の章に入っていくため、CUI以外からも確認したいと考えています。