anchor.diff:     (assert-equal 19 ((lambda (a b) (+ a b)) 10 9))
     (let ((my-function))
       (setf my-function (lambda (a b) (* a b)))
  -    (assert-equal ___ (funcall my-function 11 9)))
  +    (assert-equal 99 (funcall my-function 11 9)))
     (let ((list-of-functions nil))
       (push (lambda (a b) (+ a b)) list-of-functions)
       (push (lambda (a b) (* a b)) list-of-functions)
       (push (lambda (a b) (- a b)) list-of-functions)
  -    (assert-equal ___ (funcall (second list-of-functions) 2 33))))
  +    (assert-equal 66 (funcall (second list-of-functions) 2 33))))
   
   (define-test test-lambdas-can-have-optional-params
  -   (assert-equal ___ ((lambda (a &optional (b 100)) (+ a b)) 10 9))
  -   (assert-equal ___ ((lambda (a &optional (b 100)) (+ a b)) 10)))
  +   (assert-equal 19 ((lambda (a &optional (b 100)) (+ a b)) 10 9))
  +   (assert-equal 110 ((lambda (a &optional (b 100)) (+ a b)) 10)))
   
   
   ; returns sign x
  
positive.code: 
  (define-test test-many-kinds-params
      "CL provides the programmer with more than enough rope to hang himself."
     (assert-equal (func-with-funky-parameters 1) ___)
     (assert-equal (func-with-funky-parameters 1 :b 2) ___)
     (assert-equal (func-with-funky-parameters 1 :b 2 :c 3) ___)
     (assert-equal (func-with-funky-parameters 1 :c 3 :b 2) ___))
  
  
  ;; Note that &rest parameters have to come before &key parameters.
  
negative.code: (define-test test-optional-parameters
      "Optional parameters are filled in with their default value."
     (assert-equal (func-with-opt-params :test-1 :test-2) '(:test-1 :test-2))
     (assert-equal (func-with-opt-params :test-1) '(:test-1 3))
     (assert-equal (func-with-opt-params) '(2 3)))
  
  
  