anchor.diff:  (cl:defpackage #:sykosomatic.scene
     (:use :cl :alexandria :chillax.core :sykosomatic.db)
  -  (:export :create-scene :add-action :find-scenes-by-account-name :find-scene-with-actions :find-scene-actions
  +  (:export :create-scene :add-action :add-dialogue
  +           :find-scenes-by-account-name :find-scene-with-entries :find-scene-entries
              :scene-id :scene-upvote :scene-rating))
   (cl:in-package #:sykosomatic.scene)
   
  
positive.code: (defun find-scenes-by-account-name (account-name)
    (view-query-value "scene" "by_account_name" account-name nil))
  
  (defun find-scene-with-actions (scene-id)
    (when-let ((results (doc-val (query-view *db* "scene" "full_by_id"
                                             :startkey (list scene-id)
                                             :endkey (list scene-id 2))
                                 "rows")))
      (mapcar (rcurry #'doc-val "value") results)))
  
  (defun find-scene-actions (scene-id)
    (view-query-value "scene" "actions_by_scene_id" scene-id nil))
  
negative.code:                        "account_name" account-name))
      uuid))
  
  (defun add-action (scene-id actor action-txt &key (timestamp (get-universal-time)))
    (ensure-doc (get-uuid)
                (mkdoc "type" "scene-entry"
                       "entry_type" "action"
                       "scene_id" scene-id
                       "actor" actor
                       "action" action-txt
                       "timestamp" timestamp)))
  
  (defun add-dialogue (scene-id actor dialogue parenthetical &key (timestamp (get-universal-time)))
    (ensure-doc (get-uuid)
                (mkdoc "type" "scene-entry"
                       "entry_type" "dialogue"
                       "scene_id" scene-id
                       "actor" actor
                       "dialogue" dialogue
                       "parenthetical" parenthetical
                       "timestamp" timestamp)))
  
  (defun scene-id (scene)
  