projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.13.36: global policy / null-lexenv confusion fix
[sbcl.git]
/
src
/
code
/
unix-pathname.lisp
diff --git
a/src/code/unix-pathname.lisp
b/src/code/unix-pathname.lisp
index
6f1cf6a
..
302fce0
100644
(file)
--- a/
src/code/unix-pathname.lisp
+++ b/
src/code/unix-pathname.lisp
@@
-245,9
+245,10
@@
(type (pathname-type pathname)))
(coerce
(with-output-to-string (s)
(type (pathname-type pathname)))
(coerce
(with-output-to-string (s)
- (ecase (car directory)
- (:absolute (write-char #\/ s))
- (:relative))
+ (when directory
+ (ecase (car directory)
+ (:absolute (write-char #\/ s))
+ (:relative)))
(dolist (piece (cdr directory))
(typecase piece
((member :up) (write-string ".." s))
(dolist (piece (cdr directory))
(typecase piece
((member :up) (write-string ".." s))