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...