anchor.diff:          (map nil (rcurry #'send-action (client-entity-id *client*) predicate)
                (local-actors *client*)))
       (error (e)
  -      (send-msg (client-entity-id *client*) (list "parse-error" (princ-to-string e))))))
  +      (send-json (client-entity-id *client*) (list "parse-error" (princ-to-string e))))))
   
   (defhandler emit (text)
     (map nil (rcurry #'send-action nil text)
  
positive.code:     (bt:destroy-thread *chat-resource-thread*))
    (setf *websocket-thread* nil
          *chat-resource-thread* nil))
  
  
  ;;; User actions
  ;; (defstruct (user-action (:constructor make-user-action (user action dialogue
  ;;                                                         &optional (timestamp (get-universal-time)))))
  ;;   user timestamp action dialogue)
  
  ;; (defun render-user-action-to-json (user-action)
  ;;   (let ((action (user-action-action user-action))
  ;;         (dialogue (user-action-dialogue user-action))
  ;;         (user (user-action-user user-action)))
  ;;     (jsown:to-json
  ;;      `("user-action"
  ;;        (:obj ("action" . ,action)
  ;;              ("character" . ,user)
  ;;              ("dialogue" . ,dialogue))))))
  
  
  ;; (defun send-user-action (client user-action)
  ;;   (when-let ((scene-id (session-value 'scene-id (client-session client))))
  ;;     (save-user-action scene-id user-action))
  ;;   (client-write client (render-user-action-to-json user-action)))
  
  ;; (defun broadcast-user-action (res action)
  ;;   (maphash-values (rcurry #'send-user-action action)
  ;;                   (slot-value res 'clients)))
  
negative.code:         (map nil (rcurry #'send-dialogue (client-entity-id *client*) dialogue parenthetical)
               (local-actors *client*)))
      (error (e)
        (send-json (client-entity-id *client*) (list "parse-error" (princ-to-string e))))))
  
  (defun send-action (recipient actor action-txt)
    #+nil(when-let ((scene-id (session-value 'scene-id (client-session (actor-client recipient)))))
      (logit "Saving action under scene ~A: ~A" scene-id action-txt)
      (add-action scene-id actor action-txt))
    (send-json recipient `("action" (:obj
                                    ,@(when actor
                                            `(("actor" . ,(character-name actor))))
                                    ("action" . ,action-txt)))))
  
  (defhandler action (action-txt)
    (handler-case
  