(if (typep stream 'file-simple-stream)
(with-stream-class (file-simple-stream stream)
(setf (sm pathname stream) new-name)
- (setf (sm filename stream) (sb-int:unix-namestring new-name nil))
+ (setf (sm filename stream) (file-namestring new-name))
t)
nil))
(index (or start 0) (1+ index))
(end (or end (* (length vector) (vector-elt-width vector))))
(endian-swap (endian-swap-value vector endian-swap))
- (byte (read-byte-internal encap nil nil t)
- (read-byte-internal encap nil nil nil)))
- ((or (null byte) (>= index end)) index)
- (setf (bref vector (logxor index endian-swap)) byte))))))
+ (flag t nil))
+ ((>= index end) index)
+ (let ((byte (read-byte-internal encap nil nil flag)))
+ (unless byte
+ (return index))
+ (setf (bref vector (logxor index endian-swap)) byte)))))))
((or ansi-stream fundamental-stream)
(unless (typep vector '(or string
(simple-array (signed-byte 8) (*))
(cond (new-name
(setf (sb-impl::fd-stream-pathname stream) new-name)
(setf (sb-impl::fd-stream-file stream)
- (sb-int:unix-namestring new-name nil))
+ (file-namestring new-name))
t)
(t
(sb-impl::fd-stream-pathname stream))))))