Initial commit of newLISP.
[newlisp.git] / guiserver / uppercase.lsp
blob23be5b03378d5cb99cbf2ddff86b4370bb65d382
1 ;; demo script: uppercase.lsp
2 ;; this script is registered in the Tool menu of newlisp-edit.lsp
4 (print (upper-case (read-file (main-args 2))))
6 (exit)