[e90b2f]: examples / asdf / file1.lisp Maximize Restore History

Download this file

file1.lisp    9 lines (5 with data), 273 Bytes

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