Assoc pattern not evaluating :test

[dfmorrison]

The following example from the documentation fails when actually run against Optima:

CL-USER> (optima:match '(("a" . 123))
           ((assoc "A" 123 :test #'string-equal) t))

It complains about "#'STRING-EQUAL is not a function name or lambda expression". That is, it appears that, while the documentation implies the value of :test is evaluated, it is not being evaluated. And, indeed, the following seems to work:

CL-USER> (optima:match '(("a" . 123))
           ((assoc "A" 123 :test string-equal) t))
T