;;;; keyed.lisp

(in-package :vampire)

(defclass/bknr keyed ()
  ((key
    :r :std (nuid)
       :index-type string-unique-index
       :index-reader object-with-key)))