From: Stelian Ionescu <sionescu@cddr.org>
Date: Tue, 23 Oct 2012 02:09:34 +0000 (+0900)
Subject: Fix PRINT-OBJECT for passive local sockets
X-Git-Tag: v0.8.0~38
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/f7f0e177319773ccba32d6a02e6556a4b2e2b1b8

Fix PRINT-OBJECT for passive local sockets
---

diff --git a/src/sockets/socket-methods.lisp b/src/sockets/socket-methods.lisp
index 22f420a..745abd7 100644
--- a/src/sockets/socket-methods.lisp
+++ b/src/sockets/socket-methods.lisp
@@ -113,7 +113,7 @@
   (print-unreadable-object (socket stream :identity t)
     (format stream "passive local stream socket")
     (if (socket-bound-p socket)
-        (format stream " ~:[bound to~;waiting @~] ~S"
+        (format stream " ~:[bound to~;waiting @~] ~A"
                   (socket-listening-p socket)
                   (address-to-string (local-filename socket)))
         (format stream ", ~:[closed~;unbound~]" (fd-of socket)))))