Changeset 5255

Timestamp:

Sep 24, 2006, 6:59:07 PM (18 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/ccl/level-1/l1-sysio.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-sysio.lisp

@@ -20 +20 @@
   (octet-pos 0 :type fixnum)            ; current io position in octets
   (fileeof 0 :type fixnum)              ; file length in elements
-)
+  (input-filter #'false)
+  (output-filter #'false))
 
 
@@ -304 +305 @@
       (format out "(~s/" (stream-filename s))
       (if file-ioblock
-        (format out "~d)" (file-ioblock-device file-ioblock))
+        (format out "~d ~a)" (file-ioblock-device file-ioblock) (encoding-name (ioblock-encoding file-ioblock)))
         (format out ":closed")))))