From 40c82c18d87dc50b3d4e985ebe5fd62f0560c4ea Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Fri, 27 Nov 2015 17:54:02 +0100 Subject: [PATCH] gray-streams: remove CLOSE general specialization Some libraries somewhat abuse the CLOSE method specializing it on their own stuff which isn't a stream. Calling the NEXT-METHOD triggers the condition. For pragmatic reasons we'll honor this and will specialize only on the streams. --- src/clos/streams.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/clos/streams.lsp b/src/clos/streams.lsp index cec58efe2..ec2e79c00 100644 --- a/src/clos/streams.lsp +++ b/src/clos/streams.lsp @@ -320,7 +320,7 @@ (defmethod close ((stream ansi-stream) &key abort) (cl:close stream :abort abort)) -(defmethod close ((stream t) &key abort) +(defmethod close ((stream stream) &key abort) (declare (ignore abort)) (bug-or-error stream 'close))