(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