anchor.diff:     "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) ___)
  -   (assert-equal (func-with-opt-params-and-indication :test-1) ___)
  -   (assert-equal (func-with-opt-params-and-indication) ___))
  +   (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)))
   
   
   ;; ----
  
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: 
  (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)))
  
  
  ;; ----
  