read-char.lsp 2.19 KB