Changeset 15318 for release/1.8/source/level-1/l1-streams.lisp

Timestamp:

Apr 12, 2012, 11:51:32 PM (9 years ago)

Author:

rme

Message:

Merge r15292 from trunk.

Location:

release/1.8/source

Files:

• . (modified) (1 prop)
• level-1/l1-streams.lisp (modified) (2 diffs)

release/1.8/source/level-1/l1-streams.lisp

@@ -1378 +1378 @@
 (defun %ioblock-peek-char (ioblock)
   (or (ioblock-untyi-char ioblock)
-      (let* ((buf (ioblock-inbuf ioblock))
-             (idx (io-buffer-idx buf))
-             (limit (io-buffer-count buf)))
-        (declare (fixnum idx limit))
-        (when (= idx limit)
-          (unless (%ioblock-advance ioblock t)
-            (return-from %ioblock-peek-char :eof))
-          (setq idx (io-buffer-idx buf)
-                limit (io-buffer-count buf)))
-        (%code-char (aref (the (simple-array (unsigned-byte 8) (*)) (io-buffer-buffer buf)) idx)))))
+      (let* ((b (%ioblock-read-u8-byte ioblock)))
+        (if (eq b :eof)
+          b
+          (let* ((ch (%code-char b))
+                 (buf (ioblock-inbuf ioblock))
+                 (idx (io-buffer-idx buf)))
+            (declare (fixnum idx))
+            (setf (io-buffer-idx buf) (the fixnum (1- idx)))
+            ch)))))
 
 (defun %encoded-ioblock-peek-char (ioblock)
@@ -1393 +1392 @@
       (let* ((ch (funcall (ioblock-read-char-when-locked-function ioblock) ioblock)))
         (unless (eq ch :eof)
-          (setf (ioblock-untyi-char ioblock) ch))
+          (funcall (ioblock-unread-char-function ioblock) ioblock ch))
         ch)))