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-func-with-rest-params
    "With &rest, the remaining params, are handed in as a list.  Remaining
     arguments (possibly none) are collected into a list."
    (assert-equal (func-with-rest-params) ___)
    (assert-equal (func-with-rest-params 1) ___)
     (assert-equal (func-with-rest-params 1 :two 333) ___))
  
  
  ;; ----
  
negative.code:    "Common Lisp optional params may bind a symbol which indicate whether the
      value was provided or defaulted.  Each optional parameter binding has the
      form (var default-form supplied-p)."
     (assert-equal (func-with-opt-params-and-indication :test-1 :test-2) '(:test-1 t :test-2 t))
     (assert-equal (func-with-opt-params-and-indication :test-1) '(:test-1 t 3 nil))
     (assert-equal (func-with-opt-params-and-indication) '(2 nil 3 nil)))
  
  
  ;; ----
  