6 lines
152 B
Text
6 lines
152 B
Text
;; demo script: uppercase.lsp
|
|
;; this script is registered in the Tool menu of newlisp-edit.lsp
|
|
|
|
(print (upper-case (read-file (main-args 2))))
|
|
|
|
(exit)
|