* Reported by Yuri Vishnevsky on sbcl-devel.
* Test-case coming Real Soon.
(let ((ibuf (fd-stream-ibuf fd-stream))
(obuf (fd-stream-obuf fd-stream))
(queue (loop for item in (fd-stream-output-queue fd-stream)
- when (bufferp item)
+ when (buffer-p item)
collect (reset-buffer item))))
(when ibuf
(push (reset-buffer ibuf) queue))
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.10.43"
+"1.0.10.44"