Changeset 8170


Ignore:
Timestamp:
Jan 17, 2008, 3:04:20 PM (12 years ago)
Author:
gb
Message:

INFER-LINE-TERMINATION fixes (from trunk.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.2/devel/source/level-1/l1-sysio.lisp

    r7734 r8170  
    6262                (do* ((i 0 (1+ i))
    6363                      (last-was-cr nil))
    64                      ((= nchars) (if last-was-cr :cr))
     64                     ((= i nchars) (if last-was-cr :cr))
    6565                  (declare (fixnum i))
    6666                  (let* ((char (schar string i)))
     
    7373                        (#\Line_Separator (return :unicode))
    7474                        (#\Return (setq last-was-cr t))))))))
    75         (when line-termination
    76           (install-ioblock-input-line-termination file-ioblock line-termination)
    77           (when (file-ioblock-outbuf file-ioblock)
    78             (install-ioblock-output-line-termination file-ioblock line-termination))))))))
     75          (when line-termination
     76            (install-ioblock-input-line-termination file-ioblock line-termination)
     77            (when (file-ioblock-outbuf file-ioblock)
     78              (install-ioblock-output-line-termination file-ioblock line-termination))))))))
    7979
    8080
Note: See TracChangeset for help on using the changeset viewer.