shithub: femtolisp

Info  •  Files  •  Log

fix bug in printing the character #\x0

--- a/print.c

+++ b/print.c

@@ -635,7 +635,10 @@

         seq[nb] = '\0';

         if (print_princ) {

             // TODO: better multibyte handling

-            outs(seq, f);

+            if (wc == 0)

+                ios_putc(0, f);

+            else

+                outs(seq, f);

         }

         else {

             outsn("#\\", f, 2);

--- a/tests/unittest.lsp

+++ b/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))