X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tools-for-build%2Fwxs.lisp;fp=tools-for-build%2Fwxs.lisp;h=a6f1678cd79708a9d46eabaf000a09fb7b6a668d;hb=14ee896f8d31180cee945d11a8ee677558b944aa;hp=705e12e9978467653810525541f3e9e20a7a42fa;hpb=638197e01ef6d5365852758c072b2b102fdceaa6;p=sbcl.git diff --git a/tools-for-build/wxs.lisp b/tools-for-build/wxs.lisp index 705e12e..a6f1678 100644 --- a/tools-for-build/wxs.lisp +++ b/tools-for-build/wxs.lisp @@ -14,7 +14,7 @@ (defvar *indent-level* 0) (defvar *sbcl-source-root* - (truename + (truename (merge-pathnames (make-pathname :directory (list :relative :up)) (make-pathname :name nil :type nil :defaults *load-truename*))))