X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fsocket.lisp;h=120f37512b396590b74fcd763c0a54f0ee2754a7;hb=4fd24714c780827eec742db55297940ed7160ea7;hp=b39fe67921b7a2ddad86fe16904f313d94a697b1;hpb=dfc38e049f0a3dca0e5de64f712db47ed9ddedcd;p=sbcl.git

diff --git a/contrib/sb-simple-streams/socket.lisp b/contrib/sb-simple-streams/socket.lisp
index b39fe67..120f375 100644
--- a/contrib/sb-simple-streams/socket.lisp
+++ b/contrib/sb-simple-streams/socket.lisp
@@ -3,7 +3,7 @@
 ;;; **********************************************************************
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
-;;; 
+;;;
 
 ;;; Sbcl port by Rudi Schlatte.
 
@@ -28,7 +28,7 @@
             ((not (any-stream-instance-flags object :input :output))
              (princ "Closed " stream)))
       (format stream "~:(~A~)"
-	      (type-of object))
+              (type-of object))
       (when (any-stream-instance-flags object :input :output)
         (multiple-value-bind (host port)
             (sb-bsd-sockets:socket-peername (sm socket object))
@@ -47,41 +47,41 @@
              'socket-simple-stream))
     (with-stream-class (socket-simple-stream stream)
       (ecase (getf options :direction :input)
-	(:input (add-stream-instance-flags stream :input))
-	(:output (add-stream-instance-flags stream :output))
-	(:io (add-stream-instance-flags stream :input :output)))
+        (:input (add-stream-instance-flags stream :input))
+        (:output (add-stream-instance-flags stream :output))
+        (:io (add-stream-instance-flags stream :input :output)))
       (setf (sm socket stream) socket)
       (sb-bsd-sockets:socket-connect socket remote-host remote-port)
       (let ((fd (sb-bsd-sockets:socket-file-descriptor socket)))
         (when fd
-	  (add-stream-instance-flags stream :dual :simple)
-	  (when (any-stream-instance-flags stream :input)
-	    (setf (sm input-handle stream) fd)
-	    (unless (sm buffer stream)
-	      (let ((length (device-buffer-length stream)))
-		(setf (sm buffer stream) (allocate-buffer length)
-		      (sm buffpos stream) 0
-		      (sm buffer-ptr stream) 0
-		      (sm buf-len stream) length))))
-	  (when (any-stream-instance-flags stream :output)
-	    (setf (sm output-handle stream) fd)
-	    (unless (sm out-buffer stream)
-	      (let ((length (device-buffer-length stream)))
-		(setf (sm out-buffer stream) (allocate-buffer length)
-		      (sm outpos stream) 0
-		      (sm max-out-pos stream) length)))
-	    (setf (sm control-out stream) *std-control-out-table*))          
+          (add-stream-instance-flags stream :dual :simple)
+          (when (any-stream-instance-flags stream :input)
+            (setf (sm input-handle stream) fd)
+            (unless (sm buffer stream)
+              (let ((length (device-buffer-length stream)))
+                (setf (sm buffer stream) (allocate-buffer length)
+                      (sm buffpos stream) 0
+                      (sm buffer-ptr stream) 0
+                      (sm buf-len stream) length))))
+          (when (any-stream-instance-flags stream :output)
+            (setf (sm output-handle stream) fd)
+            (unless (sm out-buffer stream)
+              (let ((length (device-buffer-length stream)))
+                (setf (sm out-buffer stream) (allocate-buffer length)
+                      (sm outpos stream) 0
+                      (sm max-out-pos stream) length)))
+            (setf (sm control-out stream) *std-control-out-table*))
           (sb-ext:cancel-finalization socket)
           (sb-ext:finalize stream
                            (lambda ()
                              (sb-unix:unix-close fd)
                              (format *debug-io*
                                      "~&;;; ** closed socket (fd ~D)~%" fd)))
-	  ;; this should be done with (setf stream-external-format)
-	  (let ((efmt (getf options :external-format :default)))
-	    (compose-encapsulating-streams stream efmt)
-	    (install-dual-channel-character-strategy (melding-stream stream)
-						     efmt))
+          ;; this should be done with (setf stream-external-format)
+          (let ((efmt (getf options :external-format :default)))
+            (compose-encapsulating-streams stream efmt)
+            (install-dual-channel-character-strategy (melding-stream stream)
+                                                     efmt))
           stream)))))
 
 (defmethod device-close ((stream socket-simple-stream) abort)