Jon Boone pushed to branch issue-143-ansi-compliance-failure-listen-extra-argument at cmucl / cmucl
Commits:
-
931c28b8
by Jon Boone at 2023-05-03T17:54:04-04:00
1 changed file:
Changes:
... | ... | @@ -612,14 +612,15 @@ |
612 | 612 | ;; simple-stream
|
613 | 613 | (stream::%listen stream width)
|
614 | 614 | ;; lisp-stream
|
615 | - ((when width-p
|
|
616 | - (error 'kernel:simple-program-error
|
|
617 | - :function-name 'listen
|
|
618 | - :format-control (intl:gettext "Invalid number of arguments: ~S")
|
|
619 | - :format-arguments (list 3)))
|
|
620 | - (or (/= (the fixnum (lisp-stream-in-index stream)) in-buffer-length)
|
|
621 | - ;; Test for t explicitly since misc methods return :eof sometimes.
|
|
622 | - (eq (funcall (lisp-stream-misc stream) stream :listen) t)))
|
|
615 | + (progn
|
|
616 | + (when width-p
|
|
617 | + (error 'kernel:simple-program-error
|
|
618 | + :function-name 'listen
|
|
619 | + :format-control (intl:gettext "Invalid number of arguments: ~S")
|
|
620 | + :format-arguments (list 3)))
|
|
621 | + (or (/= (the fixnum (lisp-stream-in-index stream)) in-buffer-length)
|
|
622 | + ;; Test for t explicitly since misc methods return :eof sometimes.
|
|
623 | + (eq (funcall (lisp-stream-misc stream) stream :listen) t)))
|
|
623 | 624 | ;; fundamental-stream
|
624 | 625 | (stream-listen stream))))
|
625 | 626 |