+# RENAME-FILE
+use_test_subdirectory
+touch one
+mkdir sub
+touch sub/one
+touch foo
+ln -s foo link
+run_sbcl --eval '(let ((*default-pathname-defaults* (truename "sub")))
+ (rename-file "one" "two"))' \
+ --eval '(rename-file "one" "three")' \
+ --eval '(rename-file "link" "bar")'
+test -f three
+check_status_maybe_lose "rename-file" $? \
+ 0 "ok"
+test -f sub/two
+check_status_maybe_lose "rename-file via d-p-d" $? \
+ 0 "ok"
+test -f foo && test -L bar
+check_status_maybe_lose "rename-file + symlink" $? \
+ 0 "ok"
+