/[slime]/slime/swank-scl.lisp
ViewVC logotype

Diff of /slime/swank-scl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by heller, Thu Aug 23 19:03:37 2007 UTC revision 1.14 by dcrosher, Sat Dec 22 13:24:49 2007 UTC
# Line 53  Line 53 
53    (check-type timeout (or null real))    (check-type timeout (or null real))
54    (if (fboundp 'ext::stream-timeout)    (if (fboundp 'ext::stream-timeout)
55        (setf (ext::stream-timeout stream) timeout)        (setf (ext::stream-timeout stream) timeout)
56        (setf (slot-value (slot-value stream 'cl::stream) 'cl::timeout) timeout)))        (setf (slot-value (slot-value stream 'lisp::stream) 'lisp::timeout)
57                timeout)))
58    
59  ;;;;; Sockets  ;;;;; Sockets
60    
# Line 87  Line 88 
88                                       :external-format external-format)))                                       :external-format external-format)))
89      ;; Ignore character conversion errors.  Without this the communication      ;; Ignore character conversion errors.  Without this the communication
90      ;; channel is prone to lockup if a character conversion error occurs.      ;; channel is prone to lockup if a character conversion error occurs.
91      (setf (cl::stream-character-conversion-error-value stream) #\?)      (setf (lisp::character-conversion-stream-input-error-value stream) #\?)
92        (setf (lisp::character-conversion-stream-output-error-value stream) #\?)
93      stream))      stream))
94    
95    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.5