From 4b8a6d9e6c75f2951d329c5dd4911cb91eebc564 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Thu, 10 May 2007 00:17:25 +0200 Subject: [PATCH] Fixed bug triggered by closing with :abort nil a stream socket whose output buffer had not been flushed. Signed-off-by: Stelian Ionescu --- sockets/socket-methods.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sockets/socket-methods.lisp b/sockets/socket-methods.lisp index 6c5856d..b566541 100644 --- a/sockets/socket-methods.lisp +++ b/sockets/socket-methods.lisp @@ -171,11 +171,11 @@ (defmethod close :around ((socket socket) &key abort) (declare (ignore abort)) + (call-next-method) (when (fd-of socket) (with-socket-error-filter (et:close (fd-of socket)))) (setf (fd-of socket) nil) - (call-next-method) (values socket)) (defmethod close :around ((socket passive-socket) &key abort) -- 2.11.4.GIT