Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • src/i18n/locale/cmucl.pot
    ... ... @@ -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 ""
    

  • src/pcl/gray-streams.lisp
    ... ... @@ -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