- (physical-pathname (translate-logical-pathname pathname)))
- (if (or (probe-file physical-pathname) (pathname-type physical-pathname))
+ (physical-pathname (translate-logical-pathname pathname))
+ (probed-file (probe-file physical-pathname)))
+ (if (or probed-file
+ (pathname-type physical-pathname))