Changeset 7733 for branches/working-0711/ccl/level-1/l1-streams.lisp

Timestamp:

Nov 25, 2007, 2:30:40 AM (13 years ago)

Author:

gb

Message:

Reformat a comment.

File:

• branches/working-0711/ccl/level-1/l1-streams.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-streams.lisp

@@ -62 +62 @@
 ;;; stream's current position, if that makes sense.  Return NIL
 ;;; if it doesn't make sense.
-;;; Catch cases where this is used when STREAM-ERRORs (SOCKET-ERRORs)
-;;; are signaled on non-STREAMs.
+;;; Some things (SOCKET-ERRORs) are signaled as STREAM-ERRORs
+;;; whose STREAM args aren't streams.  That's wrong, but
+;;; defining this method on T keeps things from blowing up worse.
 (defmethod stream-surrounding-characters ((s t))
   (declare (ignore s))