[Openmcl-cvs-notifications] r7444 - /trunk/ccl/level-1/l1-streams.lisp

[gb at clozure.com]

Author: gb
Date: Sun Oct 14 22:44:15 2007
New Revision: 7444

Log:
STREAM-SURROUNDING-CHARACTERS specialized to T.

Modified:
    trunk/ccl/level-1/l1-streams.lisp

Modified: trunk/ccl/level-1/l1-streams.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/ccl/level-1/l1-streams.lisp (original)
+++ trunk/ccl/level-1/l1-streams.lisp Sun Oct 14 22:44:15 2007
@@ -61,7 +61,10 @@
 ;;; Try to return a string containing characters that're near the
 ;;; stream's current position, if that makes sense.  Return NIL
 ;;; if it doesn't make sense.
-(defmethod stream-surrounding-characters ((s stream))
+;;; Catch cases where this is used when STREAM-ERRORs (SOCKET-ERRORs)
+;;; are signaled on non-STREAMs.
+(defmethod stream-surrounding-characters ((s t))
+  (declare (ignore s))
   nil)
 =

 =