1
(princ "======================================================================") (terpri)
3
(princ "We are now executing FILE1.LSP") (terpri)
5
(defun test-function (x y)
6
(format t "~D + ~D is equal to ~D~%" x y (+ x y)))
8
(princ "TEST-FUNCTION has been created") (terpri)