From 112af8008e252668e6fb2fff67c995c9b919b5a9 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sat, 26 Apr 2008 14:56:11 +0200 Subject: [PATCH] Style change in use of MULTIPLE-VALUE-CASE in SHUTDOWN. Signed-off-by: Stelian Ionescu --- net.sockets/socket-methods.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/net.sockets/socket-methods.lisp b/net.sockets/socket-methods.lisp index d9d1bee..81440f6 100644 --- a/net.sockets/socket-methods.lisp +++ b/net.sockets/socket-methods.lisp @@ -351,9 +351,9 @@ (assert (or read write) (read write) "You must select at least one direction to shut down.") (%shutdown (fd-of socket) - (multiple-value-case ((read write)) - ((_ nil) shut-rd) - ((nil _) shut-wr) + (multiple-value-case ((read write) :test #'eq) + ((* nil) shut-rd) + ((nil *) shut-wr) (t shut-rdwr))) (values socket)) -- 2.11.4.GIT