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

Diff of /slime/swank-lispworks.lisp

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

revision 1.143 by heller, Sun Nov 6 17:05:05 2011 UTC revision 1.144 by heller, Sun Nov 6 17:05:41 2011 UTC
# Line 104  Line 104 
104    (declare (ignore buffering))    (declare (ignore buffering))
105    (let* ((fd (comm::get-fd-from-socket socket)))    (let* ((fd (comm::get-fd-from-socket socket)))
106      (assert (/= fd -1))      (assert (/= fd -1))
107      (assert (valid-external-format-p external-format))      (cond ((not external-format)
     (cond ((member (first external-format) '(:latin-1 :ascii))  
108             (make-instance 'comm:socket-stream             (make-instance 'comm:socket-stream
109                            :socket fd                            :socket fd
110                            :direction :io                            :direction :io
111                            :read-timeout timeout                            :read-timeout timeout
112                            :element-type 'base-char))                            :element-type '(unsigned-byte 8)))
113            (t            (t
114             (assert (member (first external-format) '(:utf-8)))             (assert (valid-external-format-p external-format))
115             (make-instance 'utf8-stream             (ecase (first external-format)
116                            :byte-stream               ((:latin-1 :ascii)
117                            (make-instance 'comm:socket-stream                (make-instance 'comm:socket-stream
118                                           :socket fd                               :socket fd
119                                           :direction :io                               :direction :io
120                                           :read-timeout timeout                               :read-timeout timeout
121                                           :element-type '(unsigned-byte 8)))))))                               :element-type 'base-char))
122                 (:utf-8
123                  (make-instance 'utf8-stream :byte-stream
124                                 (make-instance
125                                  'comm:socket-stream
126                                  :socket fd
127                                  :direction :io
128                                  :read-timeout timeout
129                                  :element-type '(unsigned-byte 8)))))))))
130    
131  (defclass utf8-stream (stream:fundamental-character-input-stream  (defclass utf8-stream (stream:fundamental-character-input-stream
132                         stream:fundamental-character-output-stream)                         stream:fundamental-character-output-stream)

Legend:
Removed from v.1.143  
changed lines
  Added in v.1.144

  ViewVC Help
Powered by ViewVC 1.1.5