Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
1b8fd5fe
by Tarn W. Burton at 2023-12-30T16:04:40-05:00
-
eb1848d9
by Raymond Toy at 2024-01-03T03:30:28+00:00
2 changed files:
Changes:
... | ... | @@ -21176,6 +21176,10 @@ msgid "" |
21176 | 21176 | " to clean up the side effects of having created the stream."
|
21177 | 21177 | msgstr ""
|
21178 | 21178 | |
21179 | +#: src/pcl/gray-streams.lisp
|
|
21180 | +msgid "Returns non-nil if the given Stream can is interactive."
|
|
21181 | +msgstr ""
|
|
21182 | + |
|
21179 | 21183 | #: src/pcl/gray-streams.lisp
|
21180 | 21184 | msgid "Convert pathspec (a pathname, string or stream) into a pathname."
|
21181 | 21185 | msgstr ""
|
... | ... | @@ -138,6 +138,24 @@ |
138 | 138 | |
139 | 139 | |
140 | 140 | |
141 | +(fmakunbound 'interactive-stream-p)
|
|
142 | + |
|
143 | +(defgeneric interactive-stream-p (stream)
|
|
144 | + (:documentation _N"Returns non-nil if the given Stream can is interactive."))
|
|
145 | + |
|
146 | +(defmethod interactive-stream-p (stream)
|
|
147 | + (declare (ignore stream))
|
|
148 | + nil)
|
|
149 | + |
|
150 | +(defmethod interactive-stream-p ((stream lisp-stream))
|
|
151 | + (funcall (lisp-stream-misc stream) stream :interactive-p))
|
|
152 | + |
|
153 | +(when (find-class 'stream:simple-stream nil)
|
|
154 | + (defmethod interactive-stream-p ((stream stream:simple-stream))
|
|
155 | + (stream::%interactive-stream-p stream)))
|
|
156 | + |
|
157 | + |
|
158 | + |
|
141 | 159 | (defgeneric pcl-pathname (pathspec)
|
142 | 160 | (:documentation _N"Convert pathspec (a pathname, string or stream) into a pathname."))
|
143 | 161 |