code.consxy.com Git - wolf/blob - resources/goodcomment.lisp

   1 (in-package #:nothing)
   2
   3 (defun small-guy (a b) (+ a b))
   4   ; great comment here
   5 (defun small-guy-2 (a b) (+ a b))
   6
   7 ; this is a function definition
   8 ; comment about things
   9 ; yo
  10 (defun hello-world (a b c)   ; This comment is a test
  11  (progn                      ; of things
  12   (let                       ; ( and how
  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
  17      (read-line str)
  18      (format t "This file had some things in int, yay!~%"))))))
  19 ; what kinds of comments
  20 ; do to a file
  21 ;
  22
  23 ; header comments
  24 (defun multiline-1 (a b c)
  25  (+ a b))
  26
  27 ; header comments
  28 (defun multiline-1 (a b c)
  29  (+ a b))
  30
  31 ; then a comment for
  32 ; informational purpose
  33
  34 (x y z)
  35
  36 ; Then a final comment in the file