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 |