Changeset 4920

Timestamp:

Jul 28, 2006, 3:15:33 AM (18 years ago)

Author:

Gary Byers

Message:

A couple of more (soon-to-be-used) slots in IOBLOCK.

File:

• trunk/ccl/level-1/l1-streams.lisp (modified) (1 diff)

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

@@ -363 +363 @@
   (read-char-function 'ioblock-no-char-input)
   (read-byte-function 'ioblock-no-binary-input)
+  (write-byte-function 'ioblock-no-binary-output)
   (write-char-function 'ioblock-no-char-output)
-  (write-byte-function 'ioblock-no-binary-output))
+  (encoding nil)
+  (alternate-line-termination nil))