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 Fix #143 - corrects typo on arg num
- - - - -
1 changed file:
- src/code/stream.lisp
Changes:
===================================== src/code/stream.lisp ===================================== @@ -617,7 +617,7 @@ (error 'kernel:simple-program-error :function-name 'listen :format-control (intl:gettext "Invalid number of arguments: ~S") - :format-arguments (list 3))) + :format-arguments (list 2))) (or (/= (the fixnum (lisp-stream-in-index stream)) in-buffer-length) ;; Test for t explicitly since misc methods return :eof sometimes. (eq (funcall (lisp-stream-misc stream) stream :listen) t)))
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/a071e45e95556f42ed8c2d0c...