X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=eb40f586401d127a418f48c475fbd528c1193c24;hb=5d5894082c39ca44da75d38859d669c7b2108f6a;hp=e2bb25da6d9b3b0180cb5ffca39fc0a6b46fbd46;hpb=f4c036f9d77f686ec4bdeacfbb154f695ab94784;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index e2bb25d..eb40f58 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -53,7 +53,7 @@
          :format-arguments (list stream)))
 (defun closed-flame (stream &rest ignore)
   (declare (ignore ignore))
-  (error "~S is closed." stream))
+  (error 'closed-stream-error :stream stream))
 (defun no-op-placeholder (&rest ignore)
   (declare (ignore ignore)))