Changeset 7805


Ignore:
Timestamp:
Dec 3, 2007, 11:14:42 AM (13 years ago)
Author:
gb
Message:

Fix INFER-LINE-TERMINATION termination. Wasn't this checked in a few days ago ?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-sysio.lisp

    r7341 r7805  
    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.