* lib.c (obj_print): Print control characters in string and

character literals as hex escapes, followed by semicolon if
necessary. Don't use iswprint function since it is locale-specific
and concludes that non-ASCII characters are unprintable.
Changed print syntax for lazy strings.
(obj_pprint): Changed print syntax for lazy strings.

* parser.l: Bugfix in hex/octal character constant.
num_esc(yytext) was called rather than num_esc(yytext+1).

* parser.y (chrlit): Bugfix: missing case for hex and octal
constants which are given by a LITCHAR token.

* stream.c (vformat): Bugfix: strings were being printed as if using ~a
even under ~s.

1 files changed, 0 insertions, 4 deletions

diff --git a/stream.c b/stream.c
index 38af8afe..ac14a83c 100644
--- a/stream.c
+++ b/stream.c
@@ -1010,10 +1010,6 @@ val vformat(val stream, val fmtstr, va_list vl)
             value = c_num(obj);
             sprintf(num_buf, num_fmt->dec, value);
             goto output_num;
-          } else if (stringp(obj)) {
-            if (!vformat_str(stream, obj, width, left, precision))
-              return nil;
-            continue;
           } else if (bignump(obj)) {
             int nchars = mp_radix_size(mp(obj), 10); 
             if (nchars >= (int) sizeof (num_buf))