1.hello.lsp

;;hello world test function
(defun sayhello()
(format t “Hello Common Lisp!”))

2.加载并运行文件，打开clisp

[1]> (load "hello.lsp")
;; Loading file hello.lsp ...
;; Loaded file hello.lsp
T
[2]> (sayhello)
Hello Common Lisp!
NIL
[3]>