Jon Boone pushed to branch issue-143-ansi-compliance-failure-listen-extra-argument at cmucl / cmucl
Commits:
-
a071e45e
by Jon Boone at 2023-05-03T18:59:57-04:00
1 changed file:
Changes:
... | ... | @@ -617,7 +617,7 @@ |
617 | 617 | (error 'kernel:simple-program-error
|
618 | 618 | :function-name 'listen
|
619 | 619 | :format-control (intl:gettext "Invalid number of arguments: ~S")
|
620 | - :format-arguments (list 3)))
|
|
620 | + :format-arguments (list 2)))
|
|
621 | 621 | (or (/= (the fixnum (lisp-stream-in-index stream)) in-buffer-length)
|
622 | 622 | ;; Test for t explicitly since misc methods return :eof sometimes.
|
623 | 623 | (eq (funcall (lisp-stream-misc stream) stream :listen) t)))
|