X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tools-for-build%2Fucd.lisp;h=4ecfdbb40bc4fbe3de7e7291375629cad580ee1e;hb=079ef9dad558ca07cb8178ef428bf738112174fa;hp=18c7714baf5c7f4c21c82f750791c4ada9892b80;hpb=c2aa3cb1a7dce5823be80742361a9d0c3c8f5578;p=sbcl.git

diff --git a/tools-for-build/ucd.lisp b/tools-for-build/ucd.lisp
index 18c7714..4ecfdbb 100644
--- a/tools-for-build/ucd.lisp
+++ b/tools-for-build/ucd.lisp
@@ -5,7 +5,7 @@
 (defparameter *output-directory*
   (merge-pathnames
    (make-pathname :directory '(:relative :up "output"))
-   (make-pathname :directory (pathname-directory *load-pathname*))))
+   (make-pathname :directory (pathname-directory *load-truename*))))
 
 (defparameter *page-size-exponent* 8)
 
@@ -18,7 +18,7 @@
 ;;; Generator
 
 (defparameter *unicode-character-database*
-  (make-pathname :directory (pathname-directory *load-pathname*)))
+  (make-pathname :directory (pathname-directory *load-truename*)))
 
 (defparameter *ucd-base* nil)