Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defvar msg-type '(:hello 1
- :welcome 2
- :abort 3
- :challenge 4
- :authenticate 5
- :goodbye 6
- :error 8
- :publish 16
- :published 17
- :subscribe 32
- :subscribed 33
- :unsubscribe 34
- :unsubscribed 35
- :event 36
- :call 48
- :cancel 49
- :result 50
- :register 64
- :registered 65
- :unregister 66
- :unregistered 67
- :invocation 68
- :interrupt 69
- :yield 70))
- (optima:match message-type (33 (format t "do something?"))) ; works
- (optima:match message-type ((getf msg-type :subscribed) (format t "do something?"))) ; doesn't work
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement