bldc/tests/test_match_guard_1.lisp

(defun f (x)
  (match nil
         ( _ (<= x 10) (+ x 1))
         ( _ (>  x 10) (+ x 100))))



(check (and (= (f 0) 1)
            (= (f 2) 3)
            (= (f 11) 111)))