1.1--- a/lisp/ffi/btrfs.asd Mon Oct 16 22:25:50 2023 -0400
1.2+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
1.3@@ -1,24 +0,0 @@
1.4-;;; btrfs.asd --- BTRFS SYSTEMS
1.5-
1.6-;; BTRFS for lisp.
1.7-
1.8-;;; Code:
1.9-(defsystem "btrfs"
1.10- :version "0.1.0"
1.11- :license (:file "LICENSE")
1.12- :maintainer "ellis <ellis@rwest.io>"
1.13- :homepage "https://nas-t.net"
1.14- :bug-tracker "https://lab.rwest.io/comp/core/issues"
1.15- :depends-on (:std :sxp)
1.16- :in-order-to ((test-op (test-op "btrfs/tests")))
1.17- :components ((:file "btrfs/btrfs")))))
1.18-
1.19-(defsystem "btrfs/tests"
1.20- :version "0.1.0"
1.21- :license (:file "LICENSE")
1.22- :maintainer "ellis <ellis@rwest.io>"
1.23- :homepage "https://nas-t.net"
1.24- :bug-tracker "https://lab.rwest.io/comp/core/issues"
1.25- :depends-on (:btrfs :rt)
1.26- :components ((:file "btrfs/tests"))
1.27- :perform (test-op (op c) (uiop:symbol-call '#:rt '#:do-tests :btrfs)))
2.1--- /dev/null Thu Jan 01 00:00:00 1970 +0000
2.2+++ b/lisp/ffi/btrfs/btrfs.asd Mon Oct 16 23:11:19 2023 -0400
2.3@@ -0,0 +1,23 @@
2.4+;;; btrfs.asd --- BTRFS SYSTEMS
2.5+
2.6+;; BTRFS for lisp.
2.7+
2.8+;;; Code:
2.9+(defsystem "btrfs"
2.10+ :version "0.1.0"
2.11+ :license (:file "LICENSE")
2.12+ :maintainer "ellis <ellis@rwest.io>"
2.13+ :bug-tracker "https://lab.rwest.io/comp/core/issues"
2.14+ :depends-on (:std)
2.15+ :in-order-to ((test-op (test-op "btrfs/tests")))
2.16+ :components ((:file "btrfs")))))
2.17+
2.18+(defsystem "btrfs/tests"
2.19+ :version "0.1.0"
2.20+ :license (:file "LICENSE")
2.21+ :maintainer "ellis <ellis@rwest.io>"
2.22+ :homepage "https://nas-t.net"
2.23+ :bug-tracker "https://lab.rwest.io/comp/core/issues"
2.24+ :depends-on (:btrfs :rt)
2.25+ :components ((:file "tests"))
2.26+ :perform (test-op (op c) (uiop:symbol-call '#:rt '#:do-tests :btrfs)))
3.1--- a/lisp/ffi/quiche.asd Mon Oct 16 22:25:50 2023 -0400
3.2+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
3.3@@ -1,9 +0,0 @@
3.4-(defsystem :quiche
3.5- :depends-on (:macs)
3.6- :in-order-to ((test-op (test-op "quiche/tests")))
3.7- :components ((:file "quiche/quiche")))
3.8-
3.9-(defsystem :quche/tests
3.10- :depends-on (:rt :quiche)
3.11- :components ((:file "quche/tests"))
3.12- :perform (test-op (op c) (uiop:symbol-call '#:rt '#:do-tests :quiche)))
4.1--- /dev/null Thu Jan 01 00:00:00 1970 +0000
4.2+++ b/lisp/ffi/quiche/quiche.asd Mon Oct 16 23:11:19 2023 -0400
4.3@@ -0,0 +1,9 @@
4.4+(defsystem :quiche
4.5+ :depends-on (:std)
4.6+ :in-order-to ((test-op (test-op "quiche/tests")))
4.7+ :components ((:file "quiche")))
4.8+
4.9+(defsystem :quiche/tests
4.10+ :depends-on (:rt :quiche)
4.11+ :components ((:file "tests"))
4.12+ :perform (test-op (op c) (uiop:symbol-call '#:rt '#:do-tests :quiche)))
5.1--- a/lisp/ffi/rocksdb.asd Mon Oct 16 22:25:50 2023 -0400
5.2+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
5.3@@ -1,18 +0,0 @@
5.4-;;; rocksdb.asd --- ROCKSDB SYSTEMS
5.5-
5.6-;; rocksdb for lisp.
5.7-
5.8-;;; Commentary:
5.9-
5.10-;; based on Vee's cl-rocksdb: https://github.com/veer66/cl-rocksdb/tree/main
5.11-
5.12-;;; Code:
5.13-(defsystem "rocksdb"
5.14- :depends-on (:macs)
5.15- :in-order-to ((test-op (test-op "rocksdb/tests")))
5.16- :components ((:file "rocksdb/rocksdb")))
5.17-
5.18-(defsystem "rocksdb/tests"
5.19- :depends-on (:rocksdb :rt)
5.20- :components ((:file "rocksdb/tests"))
5.21- :perform (test-op (op c) (uiop:symbol-call '#:rt '#:do-tests :rocksdb)))
6.1--- /dev/null Thu Jan 01 00:00:00 1970 +0000
6.2+++ b/lisp/ffi/rocksdb/rocksdb.asd Mon Oct 16 23:11:19 2023 -0400
6.3@@ -0,0 +1,16 @@
6.4+;;; rocksdb.asd --- ROCKSDB SYSTEMS
6.5+
6.6+;; rocksdb for lisp.
6.7+
6.8+;;; Commentary:
6.9+
6.10+;;
6.11+
6.12+;;; Code:
6.13+(defsystem "rocksdb"
6.14+ :depends-on (:std)
6.15+ :description "based on Vee's cl-rocksdb: https://github.com/veer66/cl-rocksdb/tree/main"
6.16+ :class :package-inferred-system
6.17+ :in-order-to ((test-op (test-op "rocksdb/tests")))
6.18+ :perform (test-op (op c) (uiop:symbol-call '#:rt '#:do-tests :rocksdb))
6.19+ :components ((:file "rocksdb")))
7.1--- a/lisp/ffi/rocksdb/rocksdb.lisp Mon Oct 16 22:25:50 2023 -0400
7.2+++ b/lisp/ffi/rocksdb/rocksdb.lisp Mon Oct 16 23:11:19 2023 -0400
7.3@@ -136,7 +136,7 @@
7.4 (define-alien-type rocksdb-errptr (* (* t)))
7.5
7.6 ;;; Cache
7.7-(define-alien-routine rocksdb-cache-create-lru (* rocksdb) (capacity u32))
7.8+(define-alien-routine rocksdb-cache-create-lru (* rocksdb) (capacity unsigned-int))
7.9
7.10 ;;; Options
7.11
7.12@@ -159,7 +159,7 @@
7.13 (opt (* rocksdb-options)) (total-threads int))
7.14 (define-alien-routine rocksdb-options-optimize-level-style-compaction void
7.15 (opt (* rocksdb-options))
7.16- (memtable-memory-budget u64))
7.17+ (memtable-memory-budget unsigned-long))
7.18 (define-alien-routine rocksdb-options-set-create-if-missing void
7.19 (opt (* rocksdb-options))
7.20 (val boolean))
8.1--- a/lisp/ffi/rocksdb/tests.lisp Mon Oct 16 22:25:50 2023 -0400
8.2+++ b/lisp/ffi/rocksdb/tests.lisp Mon Oct 16 23:11:19 2023 -0400
8.3@@ -1,15 +1,17 @@
8.4 ;;; rocksdb/tests.lisp --- RocksDB tests
8.5
8.6 ;;; Code:
8.7-(defpackage :rocksdb.tests
8.8- (:use :cl :rt :rocksdb :rdb :sb-alien :alien :sb-ext))
8.9+(defpackage :rocksdb/tests
8.10+ (:use :std :rt :rocksdb :alien :sb-ext))
8.11
8.12-(in-package :rocksdb.tests)
8.13+(in-package :rocksdb/tests)
8.14
8.15 (defun rocksdb-test-dir ()
8.16 (format nil "/tmp/~A/" (gensym "rocksdb-tests-")))
8.17
8.18-(defun test-opts () (rdb::default-rocksdb-options%))
8.19+(defun test-opts () (let ((default (rocksdb-options-create)))
8.20+ (rocksdb-options-set-create-if-missing default t)
8.21+ default))
8.22
8.23 ;; not thread safe (gensym-counter)
8.24 (defun genkey (&optional prefix) (string-to-octets (symbol-name (gensym (or prefix "key")))))
9.1--- a/lisp/ffi/tree-sitter.asd Mon Oct 16 22:25:50 2023 -0400
9.2+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
9.3@@ -1,14 +0,0 @@
9.4-;;; tree-sitter.asd --- TREE-SITTER SYSTEMS
9.5-
9.6-;; TREE-SITTER for lisp.
9.7-
9.8-;;; Code:
9.9-(defsystem "tree-sitter"
9.10- :depends-on (:macs :sxp)
9.11- :in-order-to ((test-op (test-op "tree-sitter/tests")))
9.12- :components ((:file "tree-sitter/tree-sitter")))
9.13-
9.14-(defsystem "tree-sitter/tests"
9.15- :depends-on (:tree-sitter :rt)
9.16- :components ((:file "tree-sitter/tests"))
9.17- :perform (test-op (op c) (uiop:symbol-call '#:rt '#:do-tests :tree-sitter)))
10.1--- /dev/null Thu Jan 01 00:00:00 1970 +0000
10.2+++ b/lisp/ffi/tree-sitter/tree-sitter.asd Mon Oct 16 23:11:19 2023 -0400
10.3@@ -0,0 +1,14 @@
10.4+;;; tree-sitter.asd --- TREE-SITTER SYSTEMS
10.5+
10.6+;; TREE-SITTER for lisp.
10.7+
10.8+;;; Code:
10.9+(defsystem "tree-sitter"
10.10+ :depends-on (:std)
10.11+ :in-order-to ((test-op (test-op "tree-sitter/tests")))
10.12+ :components ((:file "tree-sitter")))
10.13+
10.14+(defsystem "tree-sitter/tests"
10.15+ :depends-on (:tree-sitter :rt)
10.16+ :components ((:file "tests"))
10.17+ :perform (test-op (op c) (uiop:symbol-call '#:rt '#:do-tests :tree-sitter)))
11.1--- a/lisp/ffi/uring.asd Mon Oct 16 22:25:50 2023 -0400
11.2+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
11.3@@ -1,10 +0,0 @@
11.4-;;; uring.asd-*- mode: lisp; -*-
11.5-(defsystem :uring
11.6- :depends-on (:macs)
11.7- :in-order-to ((test-op (test-op "uring/tests")))
11.8- :components ((:file "uring/uring")))
11.9-
11.10-(defsystem :uring/tests
11.11- :depends-on (:uring :rt)
11.12- :components ((:file "uring/tests"))
11.13- :perform (test-op (op c) (uiop:symbol-call '#:rt '#:do-tests :uring)))
12.1--- /dev/null Thu Jan 01 00:00:00 1970 +0000
12.2+++ b/lisp/ffi/uring/uring.asd Mon Oct 16 23:11:19 2023 -0400
12.3@@ -0,0 +1,6 @@
12.4+;;; uring.asd-*- mode: lisp; -*-
12.5+(defsystem :uring
12.6+ :depends-on (:std)
12.7+ :in-order-to ((test-op (test-op "uring/tests")))
12.8+ :components ((:file "uring"))
12.9+ :perform (test-op (op c) (uiop:symbol-call '#:rt '#:do-tests :uring)))
13.1--- a/lisp/lib/rdb.asd Mon Oct 16 22:25:50 2023 -0400
13.2+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
13.3@@ -1,20 +0,0 @@
13.4-;;; rdb.asd --- thin RocksDB ORM
13.5-(defsystem "rdb"
13.6- :version "0.1.0"
13.7- :license (:file "LICENSE")
13.8- :maintainer "ellis <ellis@rwest.io>"
13.9- :homepage "https://nas-t.net"
13.10- :bug-tracker "https://lab.rwest.io/comp/core/issues"
13.11- :depends-on (:macs :rocksdb)
13.12- :in-order-to ((test-op (test-op "rdb/tests")))
13.13- :components ((:file "rdb/rdb")))
13.14-
13.15-(defsystem "rdb/tests"
13.16- :version "0.1.0"
13.17- :license (:file "LICENSE")
13.18- :maintainer "ellis <ellis@rwest.io>"
13.19- :homepage "https://nas-t.net"
13.20- :bug-tracker "https://lab.rwest.io/comp/core/issues"
13.21- :depends-on (:rdb :rt)
13.22- :components ((:file "rdb/tests"))
13.23- :perform (test-op (op c) (uiop:symbol-call '#:rt '#:do-tests :rdb)))
14.1--- /dev/null Thu Jan 01 00:00:00 1970 +0000
14.2+++ b/lisp/lib/rdb/rdb.asd Mon Oct 16 23:11:19 2023 -0400
14.3@@ -0,0 +1,12 @@
14.4+;;; rdb.asd --- thin RocksDB ORM
14.5+(defsystem "rdb"
14.6+ :version "0.1.0"
14.7+ :license (:file "LICENSE")
14.8+ :class :package-inferred-system
14.9+ :maintainer "ellis <ellis@rwest.io>"
14.10+ :homepage "https://nas-t.net"
14.11+ :bug-tracker "https://lab.rwest.io/comp/core/issues"
14.12+ :depends-on (:std :rocksdb)
14.13+ :in-order-to ((test-op (test-op "rdb/tests")))
14.14+ :perform (test-op (op c) (uiop:symbol-call '#:rt '#:do-tests :rdb))
14.15+ :components ((:file "rdb")))
15.1--- a/lisp/lib/rdb/rdb.lisp Mon Oct 16 22:25:50 2023 -0400
15.2+++ b/lisp/lib/rdb/rdb.lisp Mon Oct 16 23:11:19 2023 -0400
15.3@@ -7,7 +7,7 @@
15.4 ;; Commentary:
15.5
15.6 ;; Code:
15.7-(pkg:defpkg :rdb
15.8+(uiop:define-package :rdb
15.9 (:use :cl :alien :fu :rocksdb)
15.10 (:import-from :sb-ext :string-to-octets :octets-to-string)
15.11 (:reexport :rocksdb)
16.1--- a/lisp/lib/rdb/tests.lisp Mon Oct 16 22:25:50 2023 -0400
16.2+++ b/lisp/lib/rdb/tests.lisp Mon Oct 16 23:11:19 2023 -0400
16.3@@ -1,5 +1,5 @@
16.4 (defpackage :rdb.tests
16.5- (:use :cl :rt :rdb))
16.6+ (:use :std/base :rt :rdb))
16.7 (in-package :rdb.tests)
16.8 (defsuite :rdb)
16.9 (in-suite :rdb)
17.1--- a/lisp/std.asd Mon Oct 16 22:25:50 2023 -0400
17.2+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
17.3@@ -1,15 +0,0 @@
17.4-;;; std.asd --- standard library
17.5-(defsystem :std
17.6- :pathname "std"
17.7- :class :package-inferred-system
17.8- :defsystem-depends-on (:asdf-package-system)
17.9- :depends-on (:std/pkg :std/all)
17.10- :in-order-to ((test-op (test-op "std/tests")))
17.11- :perform (test-op (o c) (symbol-call :rt :do-tests :std)))
17.12-
17.13-(defsystem :std/tests
17.14- :pathname "std"
17.15- :depends-on (:std :rt)
17.16- :components ((:file "tests")))
17.17-
17.18-(asdf:register-system-packages "std/all" '(:std))
18.1--- a/lisp/std/alien.lisp Mon Oct 16 22:25:50 2023 -0400
18.2+++ b/lisp/std/alien.lisp Mon Oct 16 23:11:19 2023 -0400
18.3@@ -21,7 +21,7 @@
18.4 ;;; Code:
18.5 (uiop:define-package :std/alien
18.6 (:nicknames :alien)
18.7- (:use :cl :sb-vm :sb-ext :sb-c :std/base :std/fu)
18.8+ (:use :sb-vm :sb-ext :sb-c :std/base)
18.9 (:use-reexport :sb-alien)
18.10 (:export
18.11 :copy-c-string
19.1--- a/lisp/std/base.lisp Mon Oct 16 22:25:50 2023 -0400
19.2+++ b/lisp/std/base.lisp Mon Oct 16 23:11:19 2023 -0400
19.3@@ -1,4 +1,5 @@
19.4 (uiop:define-package :std/base
19.5+ (:nicknames :base)
19.6 (:use-reexport :cl :std/named-readtables :std/pkg :std/str :std/sym :std/list :std/cond))
19.7
19.8
20.1--- /dev/null Thu Jan 01 00:00:00 1970 +0000
20.2+++ b/lisp/std/std.asd Mon Oct 16 23:11:19 2023 -0400
20.3@@ -0,0 +1,13 @@
20.4+;;; std.asd --- standard library
20.5+(defsystem :std
20.6+ :class :package-inferred-system
20.7+ :defsystem-depends-on (:asdf-package-system)
20.8+ :depends-on (:std/pkg :std/all)
20.9+ :in-order-to ((test-op (test-op "std/tests")))
20.10+ :perform (test-op (o c) (symbol-call :std/rt :do-tests :std)))
20.11+
20.12+(register-system-packages "std/all" '(:std))
20.13+(register-system-packages "std/named-readtables" '(:named-readtables))
20.14+(register-system-packages "std/rt" '(:rt))
20.15+(register-system-packages "std/sxp" '(:sxp))
20.16+(register-system-packages "std/cli" '(:cli))
21.1--- a/lisp/std/tests/sxp.lisp Mon Oct 16 22:25:50 2023 -0400
21.2+++ b/lisp/std/tests/sxp.lisp Mon Oct 16 23:11:19 2023 -0400
21.3@@ -8,8 +8,8 @@
21.4 (declaim
21.5 (type (or string pathname) *sxp-test-file*)
21.6 (type string *sxp-test-string*))
21.7-(defparameter *sxp-test-file* "tests.sxp")
21.8-(defparameter *sxp-test-string* "(FOO 'BAR `(\"test\" ,BAZ ,@QUX) 123 0.0123 1/3 `(,A1 ,A2))")
21.9+(defvar *sxp-test-file* (merge-pathnames "tests.sxp" *load-truename*))
21.10+(defvar *sxp-test-string* "(FOO 'BAR `(\"test\" ,BAZ ,@QUX) 123 0.0123 1/3 `(,A1 ,A2))")
21.11
21.12 (defsuite :sxp)
21.13 (in-suite :sxp)