- (let* ((init-var (uffi:getenv "UMLISPRC"))
- (init-file (or (when init-var (probe-file init-var))
- (probe-file
- (merge-pathnames
- (make-pathname :name ".umlisprc")
- (user-homedir-pathname)))
- #+(or mswin windows win32)
- (probe-file "c:\\etc\\umlisp-init.lisp"))))
+ (let ((init-file (or (probe-file
+ (merge-pathnames
+ (make-pathname :name ".umlisprc")
+ (user-homedir-pathname)))
+ #+(or mswin windows win32)
+ (probe-file "c:\\etc\\umlisp-init.lisp"))))