From c9aeeb418b6ac881bb76f480cace06fb4687d769 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Tue, 28 Feb 2006 04:58:55 +0000 Subject: [PATCH] 0.9.10.6: fix non-unicode build ...I was _sure_ I'd tested this... --- src/code/target-char.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4