Compare commits

...

2 Commits

  1. 698
      message_wire.lisp
  2. 2
      whatscl.lisp

698
message_wire.lisp

File diff suppressed because it is too large

2
whatscl.lisp

@ -537,6 +537,8 @@ accumulator and close the stream."
(aval :status (car payload))))
((equal opcode "Presence") (on-server-presence conn (car payload)))
((equal opcode "Chat") (on-chat-modified conn (car payload)))
((and (equal opcode "Stream") (equal (car payload) "asleep"))
(wac-emit :stream-asleep conn))
(t (warn "Unhandled server message: ~A" msg))))
(if (> (length tag) 10)
(progn

Loading…
Cancel
Save