Changeset 7422


Ignore:
Timestamp:
Oct 12, 2007, 1:42:44 PM (12 years ago)
Author:
gb
Message:

Default STREAM-SURROUNDING-CHARACTERS specialized on T (for SOCKET-ERROR
on non-streams, like LISTENER-SOCKETs).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/level-1/l1-streams.lisp

    r7316 r7422  
    6262;;; stream's current position, if that makes sense.  Return NIL
    6363;;; if it doesn't make sense.
    64 (defmethod stream-surrounding-characters ((s stream))
     64;;; Some things (SOCKET-ERRORs) are signaled as STREAM-ERRORs
     65;;; whose STREAM args aren't streams.  That's wrong, but
     66;;; defining this method on T keeps things from blowing up worse.
     67(defmethod stream-surrounding-characters ((s t))
     68  (declare (ignore s))
    6569  nil)
    6670
Note: See TracChangeset for help on using the changeset viewer.