;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2006 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.perec)

;;;;;;
;;; Base classes

(def persistent-class* persistent-object-d ()
  ()
  (:abstract #t)
  (:direct-store :push-down))

(def persistent-class* persistent-object-h ()
  ()
  (:abstract #t)
  (:direct-store :push-down))

(def persistent-association*
  ((:class persistent-object-h :slot d-instance :type persistent-object-d)
   (:class persistent-object-d :slot h-instances :type (set persistent-object-h))))