anchor.diff:  (defun stop-recording (res client)
     (declare (ignore res))
     (logit "Request to stop recording received.")
  -  #+nil(delete-session-value 'scene-id (client-session client)))
  +  (delete-session-value 'scene-id (client-session client)))
   
   ;;;
   ;;; Init/teardown
  
positive.code:       (process-client-message res client message)
        (process-client-validation res client message)))
  
  (defun save-user-action (scene-id user-action)
    (logit "Saving user action ~A under scene-id ~A" user-action scene-id)
    (add-action scene-id
                :character (user-action-user user-action)
                :action (user-action-action user-action)
                :dialogue (user-action-dialogue user-action)
                :timestamp (user-action-timestamp user-action)))
  
  (defgeneric actor-client (actor)
    (:method ((actor-id string))
      (maphash-values (lambda (client)
  
negative.code: (defun start-recording (res client)
    (declare (ignore res))
    (logit "Request to start recording received.")
    (if (session-value 'scene-id (client-session client))
        (logit "Scene already being recorded. Ignoring request.")
        (let ((*acceptor* *server*))
          (setf (session-value 'scene-id (client-session client))
  