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 (file)
--- 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))