anchor.diff:                           (or (zerop (gethash "p" entry))
                                (gethash "d" entry)))
                   (remhash persona-id (gethash "privs" board)))))
  +          (when set-shared (setf (gethash "shared" board) t))
             (when (and get-notes notes) (setf (gethash "notes" board) notes))
             (when (and get-personas personas) (setf (gethash "personas" board) personas))
             (incf i)
  
positive.code:           (cursor (r:run sock query))
            (boards (r:to-array sock cursor)))
      (r:stop/disconnect sock cursor)
      (alet ((boards-populated (populate-boards-data boards :get-notes get-notes)))
        (finish future boards-populated))))
  
  (defafun get-board-by-id (future) (board-id &key get-notes)
  
negative.code:    ("body" :type cl-async-util:bytes-or-string)
     ("mod" :type integer :required t :default 'get-timestamp)))
  
  (defafun populate-boards-data (future) (boards &key get-notes get-personas set-shared)
    "Populate certain information given a list of boards."
    (if (and (< 0 (length boards))
             (or get-notes get-personas set-shared))
        (loop for i = 0
              for board across boards
              for board-id = (gethash "id" board) do
  