Skip to content
Browse files

Add register-game-stream command

  • Loading branch information
borodust committed Apr 18, 2017
1 parent 248ae83 commit d7567897d4966dde387f68f98013980ba880f46d
Showing with 11 additions and 0 deletions.
  1. +11 −0 proxy/commands.lisp
@@ -57,3 +57,14 @@
(list :command :error
:type :arena-not-found
:text (format nil "Arena with name '~A' not found" name)))))))

(defmethod process-command ((command (eql :register-game-stream)) message)
(destructuring-bind (&key peer-id &allow-other-keys) message
(let ((reg (peer-registry-of *system*)))
(if-let ((peer (find-peer-by-id reg peer-id)))
(prog1 +ok-reply+
(update-peer-proxy-connection reg peer *connection*))
(list :command :error
:type :peer-not-found
:text (format nil "Peer with id ~A not found" peer-id))))))

0 comments on commit d756789

Please sign in to comment.
You can’t perform that action at this time.