From f7f0e177319773ccba32d6a02e6556a4b2e2b1b8 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Tue, 23 Oct 2012 11:09:34 +0900 Subject: [PATCH] Fix PRINT-OBJECT for passive local sockets --- src/sockets/socket-methods.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))))) -- 2.11.4.GIT