itok function implemented

2021-05-10 19:14:35 +02:00
parent 22406e1314
commit deb483b83d
4 changed files with 12 additions and 3 deletions
--- a/stdlib/stdlib.lsp
+++ b/stdlib/stdlib.lsp
@@ -39,6 +39,7 @@
 	rslt
 	))

+(defun itok (ascii) (sprintf "%c" (list ascii)))

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