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 Fix #143 - adds missing progn - - - - - 1 changed file: - src/code/stream.lisp Changes: ===================================== src/code/stream.lisp ===================================== @@ -612,14 +612,15 @@ ;; simple-stream (stream::%listen stream width) ;; lisp-stream - ((when width-p - (error 'kernel:simple-program-error - :function-name 'listen - :format-control (intl:gettext "Invalid number of arguments: ~S") - :format-arguments (list 3))) - (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))) + (progn + (when width-p + (error 'kernel:simple-program-error + :function-name 'listen + :format-control (intl:gettext "Invalid number of arguments: ~S") + :format-arguments (list 3))) + (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))) ;; fundamental-stream (stream-listen stream)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/931c28b8924dcb08009d405f... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/931c28b8924dcb08009d405f... You're receiving this email because of your account on gitlab.common-lisp.net.