test.lisp

(optima:match message-type ((guard x (eql x (getf msg-type :subscribed))) (format t "do something?")))

Non-linear pattern: (STRUCTURE CL-WAMP::GUARD
                     (CL-WAMP::X CL-WAMP::X)
                     (EQL (AND
                           CL-WAMP::X
                           (STRUCTURE
                            GETF
                            (CL-WAMP::MSG-TYPE
                             CL-WAMP::MSG-TYPE)
                            (:SUBSCRIBED :SUBSCRIBED)))))