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))