Raymond Toy pushed to branch master at cmucl / cmucl Commits: 1b8fd5fe by Tarn W. Burton at 2023-12-30T16:04:40-05:00 Add support for Gray interactive-stream-p - - - - - eb1848d9 by Raymond Toy at 2024-01-03T03:30:28+00:00 Merge branch 'gray-interactive' into 'master' Add support for Gray interactive-stream-p See merge request cmucl/cmucl!183 - - - - - 2 changed files: - src/i18n/locale/cmucl.pot - src/pcl/gray-streams.lisp Changes: ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -21176,6 +21176,10 @@ msgid "" " to clean up the side effects of having created the stream." msgstr "" +#: src/pcl/gray-streams.lisp +msgid "Returns non-nil if the given Stream can is interactive." +msgstr "" + #: src/pcl/gray-streams.lisp msgid "Convert pathspec (a pathname, string or stream) into a pathname." msgstr "" ===================================== src/pcl/gray-streams.lisp ===================================== @@ -138,6 +138,24 @@  +(fmakunbound 'interactive-stream-p) + +(defgeneric interactive-stream-p (stream) + (:documentation _N"Returns non-nil if the given Stream can is interactive.")) + +(defmethod interactive-stream-p (stream) + (declare (ignore stream)) + nil) + +(defmethod interactive-stream-p ((stream lisp-stream)) + (funcall (lisp-stream-misc stream) stream :interactive-p)) + +(when (find-class 'stream:simple-stream nil) + (defmethod interactive-stream-p ((stream stream:simple-stream)) + (stream::%interactive-stream-p stream))) + + + (defgeneric pcl-pathname (pathspec) (:documentation _N"Convert pathspec (a pathname, string or stream) into a pathname.")) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/c59d4284dde7d5e78c712a3... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/c59d4284dde7d5e78c712a3... You're receiving this email because of your account on gitlab.common-lisp.net.