X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fstring.lisp;h=3b85a2b0e21ac653364512cdb660022b36b1e49c;hb=a7699535aaba71765335f3be0a2103b2f07941af;hp=e4ebad12ff643c0d3cec0899157dcb6363d968a3;hpb=cc9a73604f696b6e69842a95b1e11f40f8cdd7bf;p=sbcl.git

diff --git a/contrib/sb-simple-streams/string.lisp b/contrib/sb-simple-streams/string.lisp
index e4ebad1..3b85a2b 100644
--- a/contrib/sb-simple-streams/string.lisp
+++ b/contrib/sb-simple-streams/string.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.
 
@@ -40,11 +40,11 @@
   (with-stream-class (string-input-simple-stream stream)
     (let ((string (getf options :string)))
       (when (and string (null (sm buffer stream)))
-	(let ((start (getf options :start))
-	      (end (or (getf options :end) (length string))))
-	  (setf (sm buffer stream) string
-		(sm buffpos stream) start
-		(sm buffer-ptr stream) end))))
+        (let ((start (getf options :start))
+              (end (or (getf options :end) (length string))))
+          (setf (sm buffer stream) string
+                (sm buffpos stream) start
+                (sm buffer-ptr stream) end))))
     (install-string-input-character-strategy stream)
     (add-stream-instance-flags stream :string :input :simple)))
 
@@ -53,12 +53,12 @@
   (with-stream-class (string-output-simple-stream stream)
     (unless (sm out-buffer stream)
       (let ((string (getf options :string)))
-	(if string
-	    (setf (sm out-buffer stream) string
-		  (sm max-out-pos stream) (length string))
-	    (let ((buflen (max (device-buffer-length stream) 16)))
-	      (setf (sm out-buffer stream) (make-string buflen)
-		    (sm max-out-pos stream) buflen)))))
+        (if string
+            (setf (sm out-buffer stream) string
+                  (sm max-out-pos stream) (length string))
+            (let ((buflen (max (device-buffer-length stream) 16)))
+              (setf (sm out-buffer stream) (make-string buflen)
+                    (sm max-out-pos stream) buflen)))))
     (unless (sm control-out stream)
       (setf (sm control-out stream) *std-control-out-table*))
     (install-string-output-character-strategy stream)
@@ -68,9 +68,9 @@
   (declare (ignore options))
   (with-stream-class (string-simple-stream stream)
     (if (and (any-stream-instance-flags stream :simple)
-	     (any-stream-instance-flags stream :input :output))
-	t
-	nil)))
+             (any-stream-instance-flags stream :input :output))
+        t
+        nil)))
 
 (defmethod device-file-position ((stream string-simple-stream))
   (with-stream-class (simple-stream stream)
@@ -79,14 +79,14 @@
 (defmethod (setf device-file-position) (value (stream string-simple-stream))
   (with-stream-class (simple-stream stream)
     (cond ((or (> value (sm buffer-ptr stream))
-	       (< value (- -1 (sm buffer-ptr stream))))
-	   nil)
-	  ((>= value 0)
-	   (setf (sm buffpos stream) value)
-	   t)
-	  (t
-	   (setf (sm buffpos stream) (+ (sm buffer-ptr stream) value 1))
-	   t))))
+               (< value (- -1 (sm buffer-ptr stream))))
+           nil)
+          ((>= value 0)
+           (setf (sm buffpos stream) value)
+           t)
+          (t
+           (setf (sm buffpos stream) (+ (sm buffer-ptr stream) value 1))
+           t))))
 
 (defmethod device-file-length ((stream string-simple-stream))
   (with-stream-class (simple-stream stream)
@@ -105,13 +105,13 @@
   (with-stream-class (fill-pointer-output-simple-stream stream)
     (let ((buffer (sm out-buffer stream)))
       (cond ((or (> value (array-total-size buffer))
-		 (< value (- -1 (array-total-size buffer))))
-	     nil)
-	    ((>= value 0)
-	     (setf (fill-pointer buffer) value))
-	    (t
-	     (setf (fill-pointer buffer)
-		   (+ (array-total-size buffer) value 1)))))))
+                 (< value (- -1 (array-total-size buffer))))
+             nil)
+            ((>= value 0)
+             (setf (fill-pointer buffer) value))
+            (t
+             (setf (fill-pointer buffer)
+                   (+ (array-total-size buffer) value 1)))))))
 
 (defmethod device-open ((stream xp-simple-stream) options)
   #| do something |#