fix bug in printing the character #\x0

print.c

@@ -635,6 +635,9 @@ static void cvalue_printdata(ios_t *f, void *data, size_t len, value_t type,
         seq[nb] = '\0';
         if (print_princ) {
             // TODO: better multibyte handling
+            if (wc == 0)
+                ios_putc(0, f);
+            else
                 outs(seq, f);
         }
         else {

tests/unittest.lsp

@@ -78,6 +78,7 @@
 (assert (equal? (uint64 (double -123)) #uint64(0xffffffffffffff85)))
 
 (assert (equal? (string 'sym #byte(65) #wchar(945) "blah") "symA\u03B1blah"))
+(assert (= (length (string #\x0)) 1))
 
 (assert (> 9223372036854775808 9223372036854775807))