- (pathname-host p) (pathname-device p)
- (pathname-directory p) (pathname-version p)
- (pathname-host new) (pathname-device new)
- (pathname-directory new) (pathname-version new)))))
- (print-not-readable ()
+ (pathname-host p) (pathname-device p)
+ (pathname-directory p) (pathname-version p)
+ (pathname-host new) (pathname-device new)
+ (pathname-directory new) (pathname-version new)))))
+ (print-not-readable ()