Changeset 11980 for trunk/source/level-1


Ignore:
Timestamp:
Apr 28, 2009, 8:28:28 AM (10 years ago)
Author:
gb
Message:

More stream line-termination stuff.

Location:
trunk/source/level-1
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-boot-2.lisp

    r11979 r11980  
    170170
    171171(defun set-terminal-encoding (encoding-name)
     172  #+windows-target (when (atom encoding-name)
     173                     (setq encoding-name `(:character-encoding ,encoding-name
     174                                           :line-termination :crlf)))
    172175  (let* ((exformat (normalize-external-format t encoding-name)))
    173     #+windows-target (setf (external-format-line-termination external-format)
    174                            :crlf)
    175176    (setf (stream-external-format *stdin*) exformat
    176177          (stream-external-format *stdout*) exformat
  • trunk/source/level-1/l1-streams.lisp

    r11979 r11980  
    28652865                          (:lock
    28662866                           '%locked-ioblock-read-char-translating-line-separator-to-newline)
    2867                           (t '%ioblock-read-char-translating-line-separator-to-newline))))))))
     2867                          (t '%ioblock-read-char-translating-line-separator-to-newline)))))
     2868      (setf (ioblock-line-termination ioblock) line-termination))))
    28682869 
    28692870(defun setup-ioblock-output (ioblock character-p element-type sharing encoding line-termination)
     
    30483049                          (:lock
    30493050                           '%locked-ioblock-write-char-translating-newline-to-line-separator)
    3050                           (t '%ioblock-write-char-translating-newline-to-line-separator))))))))
     3051                          (t '%ioblock-write-char-translating-newline-to-line-separator)))))
     3052      (setf (ioblock-line-termination ioblock) line-termination))))
    30513053
    30523054
Note: See TracChangeset for help on using the changeset viewer.