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 (file)
--- 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)))))