X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_string.c;h=1daa50ea968f70ec211e9d487367ad7a58524aa3;hp=fff218dfafaaa669fd425f1d8800967a48786323;hb=12a1f6ad48f2b924f71239effeb90afca75a090f;hpb=5f8f0ed5cd5d4b4f793c602ed09f9b4bdb98f7e8

diff --git a/src/lisp/ao_lisp_string.c b/src/lisp/ao_lisp_string.c
index fff218df..1daa50ea 100644
--- a/src/lisp/ao_lisp_string.c
+++ b/src/lisp/ao_lisp_string.c
@@ -140,7 +140,10 @@ ao_lisp_string_write(ao_poly p)
 			printf ("\\t");
 			break;
 		default:
-			putchar(c);
+			if (c < ' ')
+				printf("\\%03o", c);
+			else
+				putchar(c);
 			break;
 		}
 	}