Mercurial > core / lisp/lib/packy/db.lisp
changeset 698: |
96958d3eb5b0 |
parent: |
ff3b057402d1
|
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Fri, 04 Oct 2024 22:04:59 -0400 |
permissions: |
-rw-r--r-- |
description: |
fixes |
1 ;;; db.lisp --- Packy Database 8 (defclass package-database (database) () 10 :db (make-rdb "packy" (default-rdb-opts) #()))) 12 (defmethod make-db ((engine (eql :packy)) &rest initargs &key &allow-other-keys) 13 (apply #'make-instance 'package-database initargs)) 15 (defmethod connect-db ((db package-database) &key &allow-other-keys) 18 (defmethod query-db ((db package-database) query &key &allow-other-keys)) 20 (defmethod db-get ((db package-database) (key simple-string) &key &allow-other-keys) 23 (get-kv-str-raw db key))) 25 (defmethod close-db ((db package-database) &key &allow-other-keys) 28 (defmethod destroy-db ((db package-database)) 31 (defmethod get-val ((obj package-database) (elt simple-string) &optional data-type) 32 (declare (ignore data-type)) 35 (defmethod get-db (dbs (name (eql :packy))))