anchor.diff:  
   (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) ___))
  +   (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)))
   
   
   ;; ----
  
positive.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) ___)
     (assert-equal (func-with-opt-params-and-indication :test-1) ___)
     (assert-equal (func-with-opt-params-and-indication) ___))
  
  
  ;; ----
  
negative.code: 
  (define-test test-call-a-function
      "DEFUN defines global functions"
    (assert-equal 18 (some-named-function 7 11)))
  
  
  (define-test test-shadow-a-function
  