Advertisement
Guest User

Untitled

a guest
Mar 28th, 2017
43
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.48 KB | None | 0 0
  1. (optima:match message-type ((guard x (eql x (getf msg-type :subscribed))) (format t "do something?")))
  2.  
  3. Non-linear pattern: (STRUCTURE CL-WAMP::GUARD
  4. (CL-WAMP::X CL-WAMP::X)
  5. (EQL (AND
  6. CL-WAMP::X
  7. (STRUCTURE
  8. GETF
  9. (CL-WAMP::MSG-TYPE
  10. CL-WAMP::MSG-TYPE)
  11. (:SUBSCRIBED :SUBSCRIBED)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement