From: Nikodemus Siivola Date: Tue, 28 Feb 2006 04:58:55 +0000 (+0000) Subject: 0.9.10.6: fix non-unicode build X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c9aeeb418b6ac881bb76f480cace06fb4687d769;p=sbcl.git 0.9.10.6: fix non-unicode build ...I was _sure_ I'd tested this... --- diff --git a/src/code/target-char.lisp b/src/code/target-char.lisp index 92d529b..3b7eea7 100644 --- a/src/code/target-char.lisp +++ b/src/code/target-char.lisp @@ -67,8 +67,10 @@ for char-name = (string-upcase (read stream nil nil)) while code-point do (setf (gethash code-point names) char-name)) - (let ((tree (make-huffman-tree - (let (list) + (let ((tree + #!+sb-unicode + (make-huffman-tree + (let (list) (maphash (lambda (code name) (declare (ignore code)) (push name list))