| changeset 14: | c953c2a35835 |
| author: | ellis <ellis@rwest.io> |
| date: | Sat, 21 Oct 2023 01:11:32 -0400 |
| permissions: | -rw-r--r-- |
| description: | rocksdb symbols and macs |
| 14 | 1 | ;;; rocksdb/macs.lisp --- macros used to generate the alien API |
| 2 | ||
| 3 | ;;; Code: |
|
| 4 | (defpackage :rocksdb/macs |
|
| 5 | (:use :cl :std) |
|
| 6 | (:export |
|
| 7 | :def-rocksdb-opt)) |
|
| 8 | ||
| 9 | (in-package :rocksdb/macs) |
|
| 10 | ||
| 11 | (defmacro def-opt-getter (opt &rest args) |
|
| 12 | `(define-alien-routine ,opt (* ,opt) ,args)) |
|
| 13 | ||
| 14 | (defmacro def-opt-setter (opt &rest args) |
|
| 15 | `(define-alien-routine ,opt (* ,opt) ,args)) |
|
| 16 | ||
| 17 | (defmacro def-rocksdb-opt (opt)) |