Data commit

Task/Variables/Common-Lisp/variables-1.lisp

@@ -0,0 +1 @@
+(defparameter *x* nil "nothing")

Task/Variables/Common-Lisp/variables-10.lisp

@@ -0,0 +1,3 @@
+(defun frobnicate (x)
+  (declare (type fixnum x))
+  (the fixnum (+ x 128)))

Task/Variables/Common-Lisp/variables-2.lisp

@@ -0,0 +1 @@
+(defvar *x* 42 "The answer.")

Task/Variables/Common-Lisp/variables-3.lisp

@@ -0,0 +1 @@
+(documentation '*x* 'variable)

Task/Variables/Common-Lisp/variables-4.lisp

@@ -0,0 +1,3 @@
+(let ((jenny (list 8 6 7 5 3 0 9))
+      hobo-joe)
+  (apply #'+ jenny))

Task/Variables/Common-Lisp/variables-5.lisp

@@ -0,0 +1,4 @@
+(progn
+  (let ((*x* 43))
+    (print *x*)
+  (print *x*))

Task/Variables/Common-Lisp/variables-6.lisp

@@ -0,0 +1 @@
+(setf *x* 625)

Task/Variables/Common-Lisp/variables-7.lisp

@@ -0,0 +1,2 @@
+(setf *x* 42 *y* (1+ *x*))
+=>43

Task/Variables/Common-Lisp/variables-8.lisp

@@ -0,0 +1,3 @@
+(setf *x* 625)
+(psetf *x* 42 *y* (1+ *x*)
+=>NIL

Task/Variables/Common-Lisp/variables-9.lisp

@@ -0,0 +1,3 @@
+(declaim (ftype (function (fixnum) fixnum) frobnicate))
+(defun frobnicate (x)
+  (+ x 42))