"Delete the specified FILE.
If FILE is a stream, on Windows the stream is closed immediately. On Unix
-plaforms the stream remains open, allowing IO to continue: the OS resources
+platforms the stream remains open, allowing IO to continue: the OS resources
associated with the deleted file remain available till the stream is closed as
per standard Unix unlink() behaviour."
(let* ((pathname (translate-logical-pathname
;; SBCL_HOME isn't set for :EXECUTABLE T embedded cores
(when (and sbcl-home (not (string= sbcl-home "")))
(parse-native-namestring sbcl-home
- #!-win32 sb!impl::*unix-host*
- #!+win32 sb!impl::*win32-host*
+ *physical-host*
*default-pathname-defaults*
:as-directory t))))
(defun user-homedir-namestring (&optional username)
- (if username
- (sb!unix:user-homedir username)
- (let ((env-home (posix-getenv "HOME")))
- (if (and env-home (not (string= env-home "")))
- env-home
+ (flet ((not-empty (x)
+ (and (not (equal x "")) x)))
+ (if username
+ (sb!unix:user-homedir username)
+ (or (not-empty (posix-getenv "HOME"))
+ #!+win32
+ (not-empty (posix-getenv "USERPROFILE"))
+ #!+win32
+ (let ((drive (not-empty (posix-getenv "HOMEDRIVE")))
+ (path (not-empty (posix-getenv "HOMEPATH"))))
+ (and drive path
+ (concatenate 'string drive path)))
#!-win32
- (sb!unix:uid-homedir (sb!unix:unix-getuid))))))
+ (not-empty (sb!unix:uid-homedir (sb!unix:unix-getuid)))
+ (error "Couldn't find home directory.")))))
;;; (This is an ANSI Common Lisp function.)
(defun user-homedir-pathname (&optional host)
(or (user-homedir-namestring)
#!+win32
(sb!win32::get-folder-namestring sb!win32::csidl_profile))
- #!-win32 sb!impl::*unix-host*
- #!+win32 sb!impl::*win32-host*
+ *physical-host*
*default-pathname-defaults*
:as-directory t)))