Changeset 8170

Timestamp:

Jan 17, 2008, 7:04:20 AM (17 years ago)

Author:

Gary Byers

Message:

INFER-LINE-TERMINATION fixes (from trunk.)

File:

• branches/1.2/devel/source/level-1/l1-sysio.lisp (modified) (2 diffs)

branches/1.2/devel/source/level-1/l1-sysio.lisp

@@ -62 +62 @@
                 (do* ((i 0 (1+ i))
                       (last-was-cr nil))
-                     ((= nchars) (if last-was-cr :cr))
+                     ((= i nchars) (if last-was-cr :cr))
                   (declare (fixnum i))
                   (let* ((char (schar string i)))
@@ -73 +73 @@
                         (#\Line_Separator (return :unicode))
                         (#\Return (setq last-was-cr t))))))))
-        (when line-termination
-          (install-ioblock-input-line-termination file-ioblock line-termination)
-          (when (file-ioblock-outbuf file-ioblock)
-            (install-ioblock-output-line-termination file-ioblock line-termination))))))))
+          (when line-termination
+            (install-ioblock-input-line-termination file-ioblock line-termination)
+            (when (file-ioblock-outbuf file-ioblock)
+              (install-ioblock-output-line-termination file-ioblock line-termination))))))))