From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Matt Wette Newsgroups: gmane.lisp.guile.bugs Subject: bug#15227: Possible bug in (web server) Date: Sat, 29 Apr 2017 13:38:28 -0700 Message-ID: <6C41D7C3-BE4C-4839-A47A-30B08B4E195B@gmail.com> References: NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 (Mac OS X Mail 10.3 \(3273\)) Content-Type: multipart/alternative; boundary="Apple-Mail=_5ABC9768-8E04-4C8A-9B8D-D0DD930B6570" X-Trace: blaine.gmane.org 1493498360 29684 195.159.176.226 (29 Apr 2017 20:39:20 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sat, 29 Apr 2017 20:39:20 +0000 (UTC) To: 15227@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Sat Apr 29 22:39:14 2017 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1d4Z94-0007Wl-L7 for guile-bugs@m.gmane.org; Sat, 29 Apr 2017 22:39:10 +0200 Original-Received: from localhost ([::1]:42377 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d4Z98-0007ZQ-R4 for guile-bugs@m.gmane.org; Sat, 29 Apr 2017 16:39:14 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:45451) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d4Z91-0007ZG-Pk for bug-guile@gnu.org; Sat, 29 Apr 2017 16:39:09 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d4Z8w-0001e2-SA for bug-guile@gnu.org; Sat, 29 Apr 2017 16:39:07 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:48506) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1d4Z8w-0001dx-LO for bug-guile@gnu.org; Sat, 29 Apr 2017 16:39:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1d4Z8w-0003up-7H for bug-guile@gnu.org; Sat, 29 Apr 2017 16:39:02 -0400 X-Loop: help-debbugs@gnu.org In-Reply-To: Resent-From: Matt Wette Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Sat, 29 Apr 2017 20:39:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 15227 X-GNU-PR-Package: guile X-GNU-PR-Keywords: Original-Received: via spool by 15227-submit@debbugs.gnu.org id=B15227.149349832115022 (code B ref 15227); Sat, 29 Apr 2017 20:39:02 +0000 Original-Received: (at 15227) by debbugs.gnu.org; 29 Apr 2017 20:38:41 +0000 Original-Received: from localhost ([127.0.0.1]:46705 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1d4Z8a-0003uE-En for submit@debbugs.gnu.org; Sat, 29 Apr 2017 16:38:40 -0400 Original-Received: from mail-pg0-f42.google.com ([74.125.83.42]:35655) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1d4Z8Y-0003u1-3i for 15227@debbugs.gnu.org; Sat, 29 Apr 2017 16:38:39 -0400 Original-Received: by mail-pg0-f42.google.com with SMTP id o3so24535998pgn.2 for <15227@debbugs.gnu.org>; Sat, 29 Apr 2017 13:38:38 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:mime-version:subject:message-id:date:to; bh=V55ADPhBUj5z5EgotdNpUTbVNEb2Yr9gqWsJONjEHM0=; b=Lf/fdpI9y5EP5iT/aeIHM1TsASM9IscjoMbXYmkaPO0fcQvO7oIMNg0rJCJMbtYz/a upsHR4oQUl9ZmcUwiPInkd6lXOPOF32WgzEozuwz01QL3LUZcQgfhJG2yWI/Ch9ejILJ t8PSteJSHnK+huN4jaX9Y4EjkSFV170LNpQuU8WvwDoqJJt7j7D254kjFy4rZV/xVYH/ vC1S6b0n0lR5qXtlnjlvVLiEz4qegawyOqh5GfeRQTEqp2wnflnsQl21RJ2+YvsxM9la xLwyOb3wnGpYRn9VJIUNWmRv7rpypTeuilT3sSTLeaCDJok8sbDbm3BK8jR+NAGIrK50 KZxA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:mime-version:subject:message-id:date:to; bh=V55ADPhBUj5z5EgotdNpUTbVNEb2Yr9gqWsJONjEHM0=; b=dz4O79i1JTrywMt8TFi4X0By2xzUEnlaS0QZUF5+O8sDGPw2rASbALk4aHbJBToFrC iT3w93BtC9cepxNz2B1SsVysflNhjx9ZgrArkx1tU+hZlmF3oplhP9tjXnle4C3mJg89 /Tf/xq8LgHcQp8EKxNze74lLATpAHhA3pT7ihLxhu6XauWsvTcvqVJB/VvPGD0sN4cwW pSx0/igGhyP2qMxZpS0N7XXpf9KA0XF5OYCKnUm+zDBVmSxXFN+9QDK5ivMIPpUFU/hZ HHveHou2Rww01ZQKmCoZpCxTaPaV31s2Ig48YXJqlzOfoGkX0dlD8WV5VDiC4kZ+sIc4 EBOw== X-Gm-Message-State: AN3rC/6dOQGHXVqX5WBRr2U5XkhPbGB/4bA7mqzGREdNYTPSPM7KR+7B sQ4k0HLyyII0UNargks= X-Received: by 10.99.111.1 with SMTP id k1mr18969144pgc.194.1493498311687; Sat, 29 Apr 2017 13:38:31 -0700 (PDT) Original-Received: from [192.168.2.114] (216-165-236-44.championbroadband.com. [216.165.236.44]) by smtp.gmail.com with ESMTPSA id m4sm20818707pgm.25.2017.04.29.13.38.29 for <15227@debbugs.gnu.org> (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sat, 29 Apr 2017 13:38:30 -0700 (PDT) X-Mailer: Apple Mail (2.3273) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: "bug-guile" Xref: news.gmane.org gmane.lisp.guile.bugs:8796 Archived-At: --Apple-Mail=_5ABC9768-8E04-4C8A-9B8D-D0DD930B6570 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=utf-8 I tried this on guile 2.2.0 and the localhost queries seem to work OK. = =E2=80=94 Matt mwette$ ./15227 server ;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=3D0 ;;; or pass the --no-auto-compile argument to disable. ;;; compiling /Users/mwette/proj/scheme/guile/bugs-guile/./15227 ;;; compiled = /Users/mwette/.cache/guile/ccache/2.2-LE-8-3.9/Users/mwette/proj/scheme/gu= ile/bugs-guile/15227.go Web server replied 'Hello World! 0'. Web server replied 'Hello World! 1'. Web server replied 'Hello World! 2'. Web server replied 'Hello World! 3'. mwette$ ./15227 client Getting http://gnu.org... response #< version: (1 . 1) code: = 301 reason-phrase: "Moved Permanently" headers: ((date . #) (server . "Apache/2.4.7") (location . #< scheme: = http userinfo: #f host: "www.gnu.org" port: #f path: "/" query: #f = fragment: #f>) (content-length . 290) (connection close) (content-type = text/html (charset . "iso-8859-1"))) port: #> Getting http://fsf.org... response #< version: (1 . 0) code: = 301 reason-phrase: "Moved Permanently" headers: ((server . = "nginx/1.1.19") (date . #) (content-type text/html) = (content-length . 185) (location . #< scheme: http userinfo: #f = host: "www.fsf.org" port: #f path: "/" query: #f fragment: #f>) (x-cache = . "MISS from www.fsforg") (x-cache-lookup . "MISS from www.fsforg:80") = (via "1.0 www.fsforg (squid/3.1.19)") (connection close)) port: = #> Getting http://localhost:8080... response #< version: (1 . 1) = code: 200 reason-phrase: "OK" headers: ((content-length . 14) = (content-type text/plain (charset . "utf-8"))) port: #> Getting http://localhost:8080... response #< version: (1 . 1) = code: 200 reason-phrase: "OK" headers: ((content-length . 14) = (content-type text/plain (charset . "utf-8"))) port: #> mwette$ ./15227 client Getting http://gnu.org... response #< version: (1 . 1) code: = 301 reason-phrase: "Moved Permanently" headers: ((date . #) (server . "Apache/2.4.7") (location . #< scheme: = http userinfo: #f host: "www.gnu.org" port: #f path: "/" query: #f = fragment: #f>) (content-length . 290) (connection close) (content-type = text/html (charset . "iso-8859-1"))) port: #> Getting http://fsf.org... response #< version: (1 . 0) code: = 301 reason-phrase: "Moved Permanently" headers: ((server . = "nginx/1.1.19") (date . #) (content-type text/html) = (content-length . 185) (location . #< scheme: http userinfo: #f = host: "www.fsf.org" port: #f path: "/" query: #f fragment: #f>) (x-cache = . "MISS from www.fsforg") (x-cache-lookup . "MISS from www.fsforg:80") = (via "1.0 www.fsforg (squid/3.1.19)") (connection close)) port: = #> Getting http://localhost:8080... response #< version: (1 . 1) = code: 200 reason-phrase: "OK" headers: ((content-length . 14) = (content-type text/plain (charset . "utf-8"))) port: #> Getting http://localhost:8080... response #< version: (1 . 1) = code: 200 reason-phrase: "OK" headers: ((content-length . 14) = (content-type text/plain (charset . "utf-8"))) port: #> mwette$ uname -a Darwin nautilus 16.5.0 Darwin Kernel Version 16.5.0: Fri Mar 3 16:52:33 = PST 2017; root:xnu-3789.51.2~3/RELEASE_X86_64 x86_64 mwette$ guile22 --version guile (GNU Guile) 2.2.0 Copyright (C) 2017 Free Software Foundation, Inc. License LGPLv3+: GNU LGPL 3 or later = . This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law. --Apple-Mail=_5ABC9768-8E04-4C8A-9B8D-D0DD930B6570 Content-Transfer-Encoding: quoted-printable Content-Type: text/html; charset=utf-8

I tried = this on guile 2.2.0 and the localhost queries seem to work OK. =E2=80=94 = Matt



mwette$ ./15227 server
;;; = note: auto-compilation is enabled, set = GUILE_AUTO_COMPILE=3D0
;;;       or pass the = --no-auto-compile argument to disable.
;;; = compiling = /Users/mwette/proj/scheme/guile/bugs-guile/./15227
;;; = compiled = /Users/mwette/.cache/guile/ccache/2.2-LE-8-3.9/Users/mwette/proj/scheme/gu= ile/bugs-guile/15227.go
Web = server replied 'Hello World! 0'.
Web = server replied 'Hello World! 1'.
Web = server replied 'Hello World! 2'.
Web = server replied 'Hello World! 3'.



mwette$ = ./15227 client
Getting http://gnu.org... response #<<response> version: = (1 . 1) code: 301 reason-phrase: "Moved Permanently" headers: ((date . = #<date nanosecond: 0 second: 12 minute: 33 hour: 20 day: 29 month: 4 = year: 2017 zone-offset: 0>) (server . "Apache/2.4.7") (location . = #<<uri> scheme: http userinfo: #f host: "www.gnu.org" port: #f path: = "/" query: #f fragment: #f>) (content-length . 290) (connection = close) (content-type text/html (charset . "iso-8859-1"))) port: = #<closed: file 1021b0690>>

Getting = http://fsf.org... response = #<<response> version: (1 . 0) code: 301 reason-phrase: "Moved = Permanently" headers: ((server . "nginx/1.1.19") (date . #<date = nanosecond: 0 second: 42 minute: 36 hour: 20 day: 29 month: 4 year: 2017 = zone-offset: 0>) (content-type text/html) (content-length . 185) = (location . #<<uri> scheme: http userinfo: #f host: "www.fsf.org" port: #f path: = "/" query: #f fragment: #f>) (x-cache . "MISS from www.fsforg") = (x-cache-lookup . "MISS from www.fsforg:80") (via "1.0 www.fsforg = (squid/3.1.19)") (connection close)) port: #<closed: file = 1021b03f0>>

Getting = http://localhost:8080... = response #<<response> version: (1 . 1) code: 200 reason-phrase: = "OK" headers: ((content-length . 14) (content-type text/plain (charset . = "utf-8"))) port: #<closed: file 1021b0000>>

Getting = http://localhost:8080... = response #<<response> version: (1 . 1) code: 200 reason-phrase: = "OK" headers: ((content-length . 14) (content-type text/plain (charset . = "utf-8"))) port: #<closed: file 1022d1c40>>

mwette$ = ./15227 client
Getting http://gnu.org... response #<<response> version: = (1 . 1) code: 301 reason-phrase: "Moved Permanently" headers: ((date . = #<date nanosecond: 0 second: 28 minute: 33 hour: 20 day: 29 month: 4 = year: 2017 zone-offset: 0>) (server . "Apache/2.4.7") (location . = #<<uri> scheme: http userinfo: #f host: "www.gnu.org" port: #f path: = "/" query: #f fragment: #f>) (content-length . 290) (connection = close) (content-type text/html (charset . "iso-8859-1"))) port: = #<closed: file 107eb9690>>

Getting = http://fsf.org... response = #<<response> version: (1 . 0) code: 301 reason-phrase: "Moved = Permanently" headers: ((server . "nginx/1.1.19") (date . #<date = nanosecond: 0 second: 58 minute: 36 hour: 20 day: 29 month: 4 year: 2017 = zone-offset: 0>) (content-type text/html) (content-length . 185) = (location . #<<uri> scheme: http userinfo: #f host: "www.fsf.org" port: #f path: = "/" query: #f fragment: #f>) (x-cache . "MISS from www.fsforg") = (x-cache-lookup . "MISS from www.fsforg:80") (via "1.0 www.fsforg = (squid/3.1.19)") (connection close)) port: #<closed: file = 107eb93f0>>

Getting = http://localhost:8080... = response #<<response> version: (1 . 1) code: 200 reason-phrase: = "OK" headers: ((content-length . 14) (content-type text/plain (charset . = "utf-8"))) port: #<closed: file 107eb9000>>

Getting = http://localhost:8080... = response #<<response> version: (1 . 1) code: 200 reason-phrase: = "OK" headers: ((content-length . 14) (content-type text/plain (charset . = "utf-8"))) port: #<closed: file 107fd9c40>>

mwette$ = uname -a
Darwin nautilus 16.5.0 Darwin Kernel = Version 16.5.0: Fri Mar  3 16:52:33 PST 2017; = root:xnu-3789.51.2~3/RELEASE_X86_64 x86_64

mwette$ guile22 = --version
guile (GNU Guile) 2.2.0
Copyright= (C) 2017 Free Software Foundation, Inc.

License = LGPLv3+: GNU LGPL 3 or later <http://gnu.org/licenses/lgpl.html>.
This is = free software: you are free to change and redistribute = it.
There is NO WARRANTY, to the extent permitted by = law.

= --Apple-Mail=_5ABC9768-8E04-4C8A-9B8D-D0DD930B6570--