changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/lib/rdb/db.lisp

changeset 387: 8252ee515756
child: ff3b057402d1
author: Richard Westhaver <ellis@rwest.io>
date: Thu, 30 May 2024 18:31:53 -0400
permissions: -rw-r--r--
description: db and readtables 
     1 ;;; rdb/db.lisp --- RDB Database API
     2 
     3 ;; RocksDB Implementation of OBJ/DB protocol.
     4 
     5 ;;; Code:
     6 (in-package :rdb)
     7 
     8 (defmethod make-db ((engine (eql :rocksdb)) &rest initargs)
     9   (declare (ignore engine))
    10   (funcall 'make-rdb initargs))
    11 
    12 (defmethod connect-db ((db rdb) &key) db)
    13 
    14 (defmethod db-query ((db rdb) (query (eql :get)) &key key &allow-other-keys)
    15   (declare (ignore query))
    16   (get-key db key))
    17 
    18 (defclass rdb-collection (database-collection)
    19   ((collection :initform (coerce nil db::*default-database-collection-type*))))