(if (typep stream 'file-simple-stream)
(with-stream-class (file-simple-stream stream)
(setf (sm pathname stream) new-name)
- (setf (sm filename stream) (file-namestring new-name))
+ (setf (sm filename stream) (%file-namestring new-name))
t)
nil))
(remf options :input-handle)
(remf options :output-handle)
(make-instance class :lisp-stream
- (apply #'open-fd-stream filespec options))))))
+ (apply #'open-fd-stream filespec options)))
+ (t (error "Don't know how to handle the stream class ~A"
+ (etypecase class
+ (symbol (find-class class t))
+ (class class)))))))
(declaim (inline read-byte read-char read-char-no-hang unread-char))
(cond (new-name
(setf (sb-impl::fd-stream-pathname stream) new-name)
(setf (sb-impl::fd-stream-file stream)
- (file-namestring new-name))
+ (%file-namestring new-name))
t)
(t
(sb-impl::fd-stream-pathname stream))))))