Ignore:
Timestamp:
Jul 23, 2006, 8:56:17 AM (13 years ago)
Author:
gb
Message:

STREAM-IOBLOCK now takes 2 required args.

File:
1 edited

Legend:

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

    r4895 r4900  
    301301      (format out "(~s/" (stream-filename s))
    302302      (if file-ioblock
    303         (format out "~d)" (file-ioblock-device (stream-ioblock s)))
     303        (format out "~d)" (file-ioblock-device file-ioblock))
    304304        (format out ":closed")))))
    305305           
     
    471471(defmethod close ((s file-stream) &key abort)
    472472  (when (open-stream-p s)
    473     (let* ((ioblock (stream-ioblock s))
     473    (let* ((ioblock (stream-ioblock s t))
    474474           (filename (stream-filename s))
    475475           (actual-filename (stream-actual-filename s)))
     
    614614                               :device fd
    615615                               :external-format real-external-format
    616                                :sharing sharing))
    617                      (ioblock (stream-ioblock fstream)))
     616                               :sharing sharing
     617                               :character-p (or (eq element-type 'character)
     618                                                (subtypep element-type 'character))))
     619                     (ioblock (stream-ioblock fstream t)))
    618620                (setf (stream-filename fstream) (namestring pathname)
    619621                      (stream-actual-filename fstream) temp-name)
Note: See TracChangeset for help on using the changeset viewer.