(merge-pathnames (make-pathname :directory (list :relative :up))
(make-pathname :name nil :type nil :defaults *load-truename*))))
(merge-pathnames (make-pathname :directory (list :relative :up))
(make-pathname :name nil :type nil :defaults *load-truename*))))