X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tools-for-build%2Fwxs.lisp;h=a6f1678cd79708a9d46eabaf000a09fb7b6a668d;hb=81e608991b9f616a412564b26186fa29933d814c;hp=705e12e9978467653810525541f3e9e20a7a42fa;hpb=1405cbc1daaa7897c90571c29651a2aa38954a0d;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*))))