[STUMP] [PATCH] accept all character chars in dformat

[Vitaly Mayatskikh]

dformat function strips non `base-char' characters now, and that
messes up non-ASCII window names in log.

diff --git a/primitives.lisp b/primitives.lisp
index d6107bb..27969aa 100644
--- a/primitives.lisp
+++ b/primitives.lisp
@@ -657,9 +657,9 @@ output directly to a file.")
   (when (>= *debug-level* level)
     (multiple-value-bind (sec m h) (decode-universal-time (get-universal-time))
       (format *debug-stream* "~2,'0d:~2,'0d:~2,'0d " h m sec))
-    ;; strip out non base-char chars quick-n-dirty like
+    ;; strip out non character chars quick-n-dirty like
     (write-string (map 'string (lambda (ch)
-                                 (if (typep ch 'base-char)
+                                 (if (typep ch 'character)
                                      ch #\?))
                        (apply 'format nil fmt args))
                   *debug-stream*)))

-- 
wbr, Vitaly