/[cmucl]/src/code/fd-stream.lisp
ViewVC logotype

Diff of /src/code/fd-stream.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.85.4.1.2.6 by rtoy, Mon Jul 14 14:01:56 2008 UTC revision 1.85.4.1.2.7 by rtoy, Mon Jul 14 20:53:43 2008 UTC
# Line 1409  Line 1409 
1409           (setf (fd-stream-unread stream) arg1)           (setf (fd-stream-unread stream) arg1)
1410           (decf (fd-stream-ibuf-head stream)           (decf (fd-stream-ibuf-head stream)
1411                 (fd-stream-last-char-read-size stream)))                 (fd-stream-last-char-read-size stream)))
1412         ;; Paul says:
1413         ;;
1414         ;; Not needed for unicode when unreading is implemented by backing up in
1415         ;; the buffer (e.g., with last-char-read-size...)
1416         ;;
1417         ;; (AFAICS there's nothing wrong with setting it there, but it
1418         ;; screws up read-interactive in my toplevel command thing -
1419         ;; leaves it expecting to read arguments when it shouldn't,
1420         ;; because LISTEN returns T when there's no input pending, but I
1421         ;; don't understand why...)
1422         #-unicode
1423       (setf (fd-stream-listen stream) t))       (setf (fd-stream-listen stream) t))
1424      (:close      (:close
1425       (cond (arg1       (cond (arg1

Legend:
Removed from v.1.85.4.1.2.6  
changed lines
  Added in v.1.85.4.1.2.7

  ViewVC Help
Powered by ViewVC 1.1.5