Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (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)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement