Plaster

(cond ((null target-snapshots) :full-send) ((null base-snapshots) :destructive-full-send) ((string= base-snapshot (first target-snapshots)) :incremental-send) (t :destructive-incremental-send))