Changeset 15318 for release/1.8/source/level-1/l1-streams.lisp
- Timestamp:
- Apr 12, 2012, 11:51:32 PM (9 years ago)
- Location:
- release/1.8/source
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.8/source
- Property svn:mergeinfo changed
/trunk/source merged: 15292
- Property svn:mergeinfo changed
-
release/1.8/source/level-1/l1-streams.lisp
r15177 r15318 1378 1378 (defun %ioblock-peek-char (ioblock) 1379 1379 (or (ioblock-untyi-char ioblock) 1380 (let* ((buf (ioblock-inbuf ioblock)) 1381 (idx (io-buffer-idx buf)) 1382 (limit (io-buffer-count buf))) 1383 (declare (fixnum idx limit)) 1384 (when (= idx limit) 1385 (unless (%ioblock-advance ioblock t) 1386 (return-from %ioblock-peek-char :eof)) 1387 (setq idx (io-buffer-idx buf) 1388 limit (io-buffer-count buf))) 1389 (%code-char (aref (the (simple-array (unsigned-byte 8) (*)) (io-buffer-buffer buf)) idx))))) 1380 (let* ((b (%ioblock-read-u8-byte ioblock))) 1381 (if (eq b :eof) 1382 b 1383 (let* ((ch (%code-char b)) 1384 (buf (ioblock-inbuf ioblock)) 1385 (idx (io-buffer-idx buf))) 1386 (declare (fixnum idx)) 1387 (setf (io-buffer-idx buf) (the fixnum (1- idx))) 1388 ch))))) 1390 1389 1391 1390 (defun %encoded-ioblock-peek-char (ioblock) … … 1393 1392 (let* ((ch (funcall (ioblock-read-char-when-locked-function ioblock) ioblock))) 1394 1393 (unless (eq ch :eof) 1395 ( setf (ioblock-untyi-char ioblock)ch))1394 (funcall (ioblock-unread-char-function ioblock) ioblock ch)) 1396 1395 ch))) 1397 1396
Note: See TracChangeset
for help on using the changeset viewer.