From e570cc8f946bae1d851f64878899141e37da64e1 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 29 Apr 2007 17:19:59 +0200 Subject: [PATCH] Fixed closing DUAL-CHANNEL-GRAY-STREAM instances. Signed-off-by: Stelian Ionescu --- sockets/gray-stream-methods.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sockets/gray-stream-methods.lisp b/sockets/gray-stream-methods.lisp index 1335e90..4dc08f4 100644 --- a/sockets/gray-stream-methods.lisp +++ b/sockets/gray-stream-methods.lisp @@ -57,9 +57,9 @@ ;; TODO: use the buffer pool (defmethod close :around ((stream dual-channel-gray-stream) &key abort) - (unless abort (finish-output stream)) (with-accessors ((ib input-buffer-of) (ob output-buffer-of)) stream + (unless (or abort (null ib)) (finish-output stream)) (when ib (free-iobuf ib)) (when ob (free-iobuf ob)) (setf ib nil ob nil)) -- 2.11.4.GIT