Data commit

Task/Comments/Common-Lisp/comments-1.lisp

@@ -0,0 +1,12 @@
+;;;; This code implements the foo and bar functions
+
+;;; The foo function calls bar on the first argument and multiplies the result by the second.
+;;; The arguments are two integers
+(defun foo (a b)
+   ;; Call bar and multiply
+   (* (bar a) ; Calling bar
+      b))
+
+;;; The bar function simply adds 3 to the argument
+(defun bar (n)
+   (+ n 3))

Task/Comments/Common-Lisp/comments-2.lisp

@@ -0,0 +1,7 @@
+(defun bar (n)
+  "Add 3 to the argument."
+  (+ n 3))
+
+(defclass button (widget)
+  (label action)
+  (:documentation "This is a push-button widget."))