3 (defun small-guy (a b) (+ a b))
5 (defun small-guy-2 (a b) (+ a b))
7 ; this is a function definition
10 (defun hello-world (a b c) ; This comment is a test
13 ((x y) ; comments can break
14 (z 9)) ; the evaluator and everything is ok
15 (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
16 (when ; because we don't care
18 (format t "This file had some things in int, yay!~%"))))))
19 ; what kinds of comments
24 (defun multiline-1 (a b c)
28 (defun multiline-1 (a b c)
32 ; informational purpose
36 ; Then a final comment in the file