Changeset 5246

Timestamp:

Sep 23, 2006, 4:29:28 AM (18 years ago)

Author:

Gary Byers

Message:

Start to separate line-termination/external-format stuff.

File:

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

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

@@ -59 +59 @@
   (with-stream-ioblock-input (ioblock file-stream :speedy t)
     (setf (file-stream-external-format file-stream)
-          (if (eq (%ioblock-peek-char ioblock) :eof)
+          (if (eq (funcall (ioblock-peek-char-function ioblock) ioblock)
+                  :eof)
             :unix
             (let* ((inbuf (ioblock-inbuf ioblock))