X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fcondition.lisp;h=d7b2e4d3dc7aadde3420fac55283197ba76d9f67;hb=30c93105a8bce7b701a5043fb11254f6f1bdd6da;hp=9ec433e1e518c5fd17dc5c117e5293b3a72a3f72;hpb=6bdf018a77fd4bbc25c783f330415d444ffaeab2;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 9ec433e..d7b2e4d 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -648,6 +648,11 @@
              "end of file on ~S"
              (stream-error-stream condition)))))
 
+(define-condition closed-stream-error (stream-error) ()
+  (:report
+   (lambda (condition stream)
+     (format stream "~S is closed" (stream-error-stream condition)))))
+
 (define-condition file-error (error)
   ((pathname :reader file-error-pathname :initarg :pathname))
   (:report