anchor.diff:  
   (defun command->msg (command &optional args)
     "Encode nvim command and optional args into msgpack packet."
  -  (encode `(0 ,(incf *id*) ,command ,args)))
  +  (encode `(0 ,(incf *id*) ,command ,(or args #()))))
   
   (defun send-command (socket command &rest args)
     "Send nvim command to neovim socket and return the result."
  
positive.code:     (get-result socket)))
  
  ; Hello world:
  ; (send-command (socket-connect #(127 0 0 1) 7777 :element-type '(unsigned-byte 8))
  ;               "vim_command"
  ;               "echo 'hello from common lisp!'")
  
negative.code: (defparameter *id* 0)
  
  (defun send-msg (socket msg)
    "Send encoded msg to nvim."
    (loop for m across msg
          do (write-byte m (socket-stream socket))
          finally (force-output (socket-stream socket))))
  
  (defun parse-response (response)
    "Parse the response received from nvim socket."
      (let* ((response (decode response))
             (msg-id (elt response 1))
             (err (elt response 2))
  