anchor.diff:  
   (define-test test-key-params ()
     "Key params allow the user to specify params in any order"
  -   (assert-equal (func-with-key-params) ___)
  -   (assert-equal (func-with-key-params :a 11 :b 22) ___)
  +   (assert-equal (func-with-key-params) '(nil nil))
  +   (assert-equal (func-with-key-params :a 11 :b 22) '(11 22))
      ; it is not necessary to specify all key parameters
  -   (assert-equal (func-with-key-params :b 22) ___)
  +   (assert-equal (func-with-key-params :b 22) '(nil 22))
      ; order is not important
  -   (assert-equal (func-with-key-params :b 22 :a 0) ___))
  +   (assert-equal (func-with-key-params :b 22 :a 0) '(0 22)))
   
   (defun func-key-params-can-have-defaults (&key  (a 3 a?) (b 4 b?))
     (list a a? b b?))
   
   (define-test test-key-params-can-have-defaults
       "key parameters can have defaults also"
  -   (assert-equal (func-key-params-can-have-defaults) ____)
  -   (assert-equal (func-key-params-can-have-defaults :a 3 :b 4) ___)
  -   (assert-equal (func-key-params-can-have-defaults :a 11 :b 22) ___)
  -   (assert-equal (func-key-params-can-have-defaults :b 22) ___)
  +   (assert-equal (func-key-params-can-have-defaults) '(3 nil 4 nil))
  +   (assert-equal (func-key-params-can-have-defaults :a 3 :b 4) '(3 t 4 t))
  +   (assert-equal (func-key-params-can-have-defaults :a 11 :b 22) '(11 t 22 t))
  +   (assert-equal (func-key-params-can-have-defaults :b 22) '(3 nil 22 t))
      ; order is not important
  -   (assert-equal (func-key-params-can-have-defaults :b 22 :a 0) ___))
  +   (assert-equal (func-key-params-can-have-defaults :b 22 :a 0) '(0 t 22 t)))
   
   
   ;; ----
  
positive.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) ___)
     (assert-equal (func-with-opt-params :test-1) ___)
     (assert-equal (func-with-opt-params) ___))
  
  
  ;; ----
  
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)))
  
  
  ;; ----
  