keyed.lisp


1
2
3
4
5
6
7
8
9

;;;; keyed.lisp

(in-package :vampire)

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