anchor.diff:      (setq f1 '+)
       (setq f2 '-)
       (setq f3 'max)
  -    (assert-equal ___ (funcall f1 1 2))
  -    (assert-equal ___ (funcall f2 1 2))
  -    (assert-equal ___ (funcall f1 1 2 3))
  -    (assert-equal ___ (funcall f3 1 2 3 4))))
  +    (assert-equal 3 (funcall f1 1 2))
  +    (assert-equal -1 (funcall f2 1 2))
  +    (assert-equal 6 (funcall f1 1 2 3))
  +    (assert-equal 4 (funcall f3 1 2 3 4))))
  
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:   1)
  
  (define-test test-return-from-function-early
     (assert-equal (sign-of -5.5) -1)
     (assert-equal (sign-of 0) 0)
     (assert-equal (sign-of 30) 1))
  
  
  ;; ----
  