- (setf *default-pathname-defaults*
- ;; (temporary value, so that #'NATIVE-PATHNAME won't blow up when
- ;; we call it below:)
- (make-trivial-default-pathname)
- *default-pathname-defaults*
- ;; (final value, constructed using #'NATIVE-PATHNAME:)
- (native-pathname (sb!unix:posix-getcwd/)))
+ ;; Temporary value, so that #'NATIVE-PATHNAME won't blow up when
+ ;; we call it below
+ (setf *default-pathname-defaults* (make-trivial-default-pathname))
+ (init-var-ignoring-errors
+ *default-pathname-defaults* (native-pathname (sb!unix:posix-getcwd/))
+ :default (make-trivial-default-pathname)
+ :explanation "with the current directory")