Ignore:
Timestamp:
Sep 25, 2006, 1:59:07 AM (13 years ago)
Author:
gb
Message:

Input-filter, output-filter in file-ioblock.

File:
1 edited

Legend:

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

    r5246 r5255  
    2020  (octet-pos 0 :type fixnum)            ; current io position in octets
    2121  (fileeof 0 :type fixnum)              ; file length in elements
    22 )
     22  (input-filter #'false)
     23  (output-filter #'false))
    2324
    2425
     
    304305      (format out "(~s/" (stream-filename s))
    305306      (if file-ioblock
    306         (format out "~d)" (file-ioblock-device file-ioblock))
     307        (format out "~d ~a)" (file-ioblock-device file-ioblock) (encoding-name (ioblock-encoding file-ioblock)))
    307308        (format out ":closed")))))
    308309   
Note: See TracChangeset for help on using the changeset viewer.