X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-char.lisp;h=2efd4c777e9be862297a2bc836eec086f86570b4;hb=731d5dd65a7b94b5d49d1663d9b60c3a406ce38c;hp=e5340586a8968c23fc3f4b0974063d4cdb010e69;hpb=8c1cdfc03a0070295e595e8b0ba97214ccb50a41;p=sbcl.git

diff --git a/src/code/target-char.lisp b/src/code/target-char.lisp
index e534058..2efd4c7 100644
--- a/src/code/target-char.lisp
+++ b/src/code/target-char.lisp
@@ -33,6 +33,7 @@
   `(integer 0 (,char-code-limit)))
 
 (defvar *character-database*)
+(declaim (type (vector (unsigned-byte 8)) *character-database*))
 
 (macrolet ((frob ()
              (with-open-file (stream (merge-pathnames
@@ -41,7 +42,7 @@
                                        '(:relative :up :up "output")
                                        :name "ucd"
                                        :type "dat")
-                                      sb!xc:*compile-file-pathname*)
+                                      sb!xc:*compile-file-truename*)
                                      :direction :input
                                      :element-type '(unsigned-byte 8))
                (let* ((length (file-length stream))