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 |