projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rename SB-SIMPLE-STREAMS utility function
[sbcl.git]
/
contrib
/
sb-simple-streams
/
impl.lisp
diff --git
a/contrib/sb-simple-streams/impl.lisp
b/contrib/sb-simple-streams/impl.lisp
index
3512edf
..
1367ae3
100644
(file)
--- a/
contrib/sb-simple-streams/impl.lisp
+++ b/
contrib/sb-simple-streams/impl.lisp
@@
-126,7
+126,7
@@
(if (typep stream 'file-simple-stream)
(with-stream-class (file-simple-stream stream)
(setf (sm pathname stream) new-name)
(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))
t)
nil))
@@
-1103,7
+1103,7
@@
is supported only on simple-streams."
(cond (new-name
(setf (sb-impl::fd-stream-pathname stream) new-name)
(setf (sb-impl::fd-stream-file stream)
(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))))))
t)
(t
(sb-impl::fd-stream-pathname stream))))))