0.6.10.19:

[sbcl.git] / src / pcl / gray-streams.lisp

diff --git a/src/pcl/gray-streams.lisp b/src/pcl/gray-streams.lisp
index 8afe99d..f4b4076 100644 (file)
--- a/src/pcl/gray-streams.lisp
+++ b/src/pcl/gray-streams.lisp
@@ -55,6 +55,7 @@
   t)
 
 (defmethod pcl-close ((stream fundamental-stream) &key abort)
+  (declare (ignore abort))
   (setf (stream-open-p stream) nil)
   t)