print ascii code of a character (ktoi)

2021-05-15 00:02:06 +02:00
parent cdfcc753e4
commit 09250861d9
4 changed files with 20 additions and 7 deletions
--- a/stdlib/stdlib.lsp
+++ b/stdlib/stdlib.lsp
@@ -40,6 +40,7 @@
 	))

 (defun itok (ascii) (sprintf "%c" (list ascii)))
+(defun ktoi (char) (int (sprintf "%d" (list char))))

 ; pause for interval of seconds
 (defun sleep (time)