`(integer 0 (,char-code-limit)))
(defvar *character-database*)
+(declaim (type (simple-array (unsigned-byte 8) (*)) *character-database*))
(macrolet ((frob ()
(with-open-file (stream (merge-pathnames
'(: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))