;;; **********************************************************************
;;; This code was written by Paul Foley and has been placed in the public
;;; domain.
;;; **********************************************************************
;;; This code was written by Paul Foley and has been placed in the public
;;; domain.
(setf (sm input-handle stream) (getf options :input-handle))
(add-stream-instance-flags stream :simple :dual :input)
(when (sb-unix:unix-isatty (sm input-handle stream))
(setf (sm input-handle stream) (getf options :input-handle))
(add-stream-instance-flags stream :simple :dual :input)
(when (sb-unix:unix-isatty (sm input-handle stream))
(unless (sm buffer stream)
(let ((length (device-buffer-length stream)))
(setf (sm buffer stream) (allocate-buffer length)
(unless (sm buffer stream)
(let ((length (device-buffer-length stream)))
(setf (sm buffer stream) (allocate-buffer length)
- (loop until (<= (read-octets stream buffer
- 0 sb-impl::bytes-per-buffer nil)
- 0))
- (free-buffer buffer)))))
+ (loop until (<= (read-octets stream buffer
+ 0 sb-impl::bytes-per-buffer nil)
+ 0))
+ (free-buffer buffer)))))