(error ()
(let* ((dir (pathname-directory *load-truename*))
(parent-dir (subseq dir 0 (1- (length dir)))))
(load (make-pathname :name "set-logical" :type "cl"
:defaults *load-truename*))
(set-logical-host-for-pathname
(error ()
(let* ((dir (pathname-directory *load-truename*))
(parent-dir (subseq dir 0 (1- (length dir)))))
(load (make-pathname :name "set-logical" :type "cl"
:defaults *load-truename*))
(set-logical-host-for-pathname
(make-pathname :host (pathname-host *load-truename*)
:device (pathname-device *load-truename*)
:directory parent-dir))))
(:no-error (translation)
(make-pathname :host (pathname-host *load-truename*)
:device (pathname-device *load-truename*)
:directory parent-dir))))
(:no-error (translation)
(let* ((dir (pathname-directory *load-truename*))
(base-dir (car (last dir)))
(logical-dir (translate-logical-pathname
(concatenate 'string
(let* ((dir (pathname-directory *load-truename*))
(base-dir (car (last dir)))
(logical-dir (translate-logical-pathname
(concatenate 'string