1.1--- a/lisp/ffi/ublk/constants.lisp	Sun Jun 09 02:05:16 2024 -0400
     1.2+++ b/lisp/ffi/ublk/constants.lisp	Sun Jun 09 16:55:08 2024 -0400
     1.3@@ -1,3 +1,82 @@
     1.4-("linux/types.h" "stdio.h" "stdarg.h" "stdlib.h" "stdbool.h" "assert.h" "sys/types.h" "sys/syscall.h" "liburing.h")
     1.5+("linux/types.h" "stdio.h" "stdarg.h" "stdlib.h" "stdbool.h" "assert.h" "sys/types.h" "sys/syscall.h" "liburing.h"
     1.6+                 "ublk_cmd.h" "ublksrv.h")
     1.7 
     1.8-()
     1.9+((:integer +max-nr-hw-queues+ "MAX_NR_HW_QUEUES" nil t)
    1.10+ (:integer +max-qd+ "MAX_QD" nil t)
    1.11+ (:integer +max-buf-size+ "MAX_BUF_SIZE" nil t)
    1.12+ (:integer +def-nr-hw-queues+ "DEF_NR_HW_QUEUES" nil t)
    1.13+ (:integer +def-qd+ "DEF_QD" nil t)
    1.14+ (:integer +def-buf-size+ "DEF_BUF_SIZE" nil t)
    1.15+ (:integer +ublksrv-f-need-eventfd+ "UBLKSRV_F_NEED_EVENTFD" nil t)
    1.16+ (:integer +ublksrv-queue-stopping+ "UBLKSRV_QUEUE_STOPPING" nil t)
    1.17+ (:integer +ublksrv-queue-idle+ "UBLKSRV_QUEUE_IDLE" nil t)
    1.18+ (:integer +ublksrv-queue-ioctl-op+ "UBLKSRV_QUEUE_IOCTL_OP" nil t)
    1.19+ (:integer +ublksrv-user-copy+ "UBLKSRV_USER_COPY" nil t)
    1.20+ (:integer +ublksrv-tgt-max-fds+ "UBLKSRV_TGT_MAX_FDS" nil t)
    1.21+ (:integer ublk-cmd-get-queue-affinity "UBLK_CMD_GET_QUEUE_AFFINITY" nil t)
    1.22+ (:integer +ublk-cmd-get-dev-info+ "UBLK_CMD_GET_DEV_INFO" nil t)
    1.23+ (:integer +ublk-cmd-add-dev+ "UBLK_CMD_ADD_DEV" nil t)
    1.24+ (:integer +ublk-cmd-del-dev+ "UBLK_CMD_DEL_DEV" nil t)
    1.25+ (:integer +ublk-cmd-start-dev+ "UBLK_CMD_START_DEV" nil t)
    1.26+ (:integer +ublk-cmd-stop-dev+ "UBLK_CMD_STOP_DEV" nil t)
    1.27+ (:integer +ublk-cmd-set-params+ "UBLK_CMD_SET_PARAMS" nil t)
    1.28+ (:integer +ublk-cmd-get-params+ "UBLK_CMD_GET_PARAMS" nil t)
    1.29+ (:integer +ublk-cmd-start-user-recovery+ "UBLK_CMD_START_USER_RECOVERY" nil t)
    1.30+ (:integer +ublk-cmd-end-user-recovery+ "UBLK_CMD_END_USER_RECOVERY" nil t)
    1.31+ (:integer +ublk-cmd-get-dev-info2+ "UBLK_CMD_GET_DEV_INFO2" nil t)
    1.32+ (:integer +ublk-features-len+ "UBLK_FEATURES_LEN" nil t)
    1.33+ (:integer +ublk-io-fetch-req+ "UBLK_IO_FETCH_REQ" nil t)
    1.34+ (:integer +ublk-io-commit-and-fetch-req+ "UBLK_IO_COMMIT_AND_FETCH_REQ" nil t)
    1.35+ (:integer +ublk-io-need-get-data+ "UBLK_IO_NEED_GET_DATA" nil t)
    1.36+ (:integer +ublk-io-res-ok+ "UBLK_IO_RES_OK" nil t)
    1.37+ (:integer +ublk-io-res-need-get-data+ "UBLK_IO_RES_NEED_GET_DATA" nil t)
    1.38+ (:integer +ublk-io-res-abort+ "UBLK_IO_RES_ABORT" nil t)
    1.39+ (:integer +ublksrv-cmd-buf-offset+ "UBLKSRV_CMD_BUF_OFFSET" nil t)
    1.40+ (:integer +ublksrv-io-buf-offset+ "UBLKSRV_IO_BUF_OFFSET" nil t)
    1.41+ (:integer +ublk-max-queue-depth+ "UBLK_MAX_QUEUE_DEPTH" nil t)
    1.42+ (:integer +ublk-io-buf-off+ "UBLK_IO_BUF_OFF" nil t)
    1.43+ (:integer +ublk-io-buf-bits+ "UBLK_IO_BUF_BITS" nil t)
    1.44+ (:integer +ublk-io-buf-bits-mask+ "UBLK_IO_BUF_BITS_MASK" nil t)
    1.45+ (:integer +ublk-tag-off+ "UBLK_TAG_OFF" nil t)
    1.46+ (:integer +ublk-tag-bits+ "UBLK_TAG_BITS" nil t)
    1.47+ (:integer +ublk-tag-bits-mask+ "UBLK_TAG_BITS_MASK" nil t)
    1.48+ (:integer +ublk-qid-off+ "UBLK_QID_OFF" nil t)
    1.49+ (:integer +ublk-qid-bits+ "UBLK_QID_BITS" nil t)
    1.50+ (:integer +ublk-qid-bits-mask+ "UBLK_QID_BITS_MASK" nil t)
    1.51+ (:integer +ublk-max-nr-queues+ "UBLK_MAX_NR_QUEUES" nil t)
    1.52+ (:integer +ublksrv-io-buf-total-bits+ "UBLKSRV_IO_BUF_TOTAL_BITS" nil t)
    1.53+ (:integer +ublksrv-io-buf-total-size+ "UBLKSRV_IO_BUF_TOTAL_SIZE" nil t)
    1.54+ (:integer +ublk-f-support-zero-copy+ "UBLK_F_SUPPORT_ZERO_COPY" nil t)
    1.55+ (:integer +ublk-f-uring-cmd-comp-in-task+ "UBLK_F_URING_CMD_COMP_IN_TASK" nil t)
    1.56+ (:integer +ublk-f-need-get-data+ "UBLK_F_NEED_GET_DATA" nil t)
    1.57+ (:integer +ublk-f-user-recovery+ "UBLK_F_USER_RECOVERY" nil t)
    1.58+ (:integer +ublk-f-user-recovery-reissue+ "UBLK_F_USER_RECOVERY_REISSUE" nil t)
    1.59+ (:integer +ublk-f-unprivileged-dev+ "UBLK_F_UNPRIVILEGED_DEV" nil t)
    1.60+ (:integer +ublk-f-cmd-ioctl-encode+ "UBLK_F_CMD_IOCTL_ENCODE" nil t)
    1.61+ (:integer +ublk-f-user-copy+ "UBLK_F_USER_COPY" nil t)
    1.62+ (:integer +ublk-s-dev-dead+ "UBLK_S_DEV_DEAD" nil t)
    1.63+ (:integer +ublk-s-dev-live+ "UBLK_S_DEV_LIVE" nil t)
    1.64+ (:integer +ublk-s-dev-quiesced+ "UBLK_S_DEV_QUIESCED" nil t)
    1.65+ (:integer +ublk-io-op-read+ "UBLK_IO_OP_READ" nil t)
    1.66+ (:integer +ublk-io-op-write+ "UBLK_IO_OP_WRITE" nil t)
    1.67+ (:integer +ublk-io-op-flush+ "UBLK_IO_OP_FLUSH" nil t)
    1.68+ (:integer +ublk-io-op-discard+ "UBLK_IO_OP_DISCARD" nil t)
    1.69+ (:integer +ublk-io-op-write-same+ "UBLK_IO_OP_WRITE_SAME" nil t)
    1.70+ (:integer +ublk-io-op-write-zeroes+ "UBLK_IO_OP_WRITE_ZEROES" nil t)
    1.71+ (:integer +ublk-io-f-failfast-dev+ "UBLK_IO_F_FAILFAST_DEV" nil t)
    1.72+ (:integer +ublk-io-f-failfast-transport+ "UBLK_IO_F_FAILFAST_TRANSPORT" nil t)
    1.73+ (:integer +ublk-io-f-failfast-driver+ "UBLK_IO_F_FAILFAST_DRIVER" nil t)
    1.74+ (:integer +ublk-io-f-meta+ "UBLK_IO_F_META" nil t)
    1.75+ (:integer +ublk-io-f-fua+ "UBLK_IO_F_FUA" nil t)
    1.76+ (:integer +ublk-io-f-nounmap+ "UBLK_IO_F_NOUNMAP" nil t)
    1.77+ (:integer +ublk-io-f-swap+ "UBLK_IO_F_SWAP" nil t)
    1.78+ (:integer +ublk-attr-read-only+ "UBLK_ATTR_READ_ONLY" nil t)
    1.79+ (:integer +ublk-attr-rotational+ "UBLK_ATTR_ROTATIONAL" nil t)
    1.80+ (:integer +ublk-attr-volatile-cache+ "UBLK_ATTR_VOLATILE_CACHE" nil t)
    1.81+ (:integer +ublk-attr-fua+ "UBLK_ATTR_FUA" nil t)
    1.82+ (:integer +ublk-u-io-fetch-req+ "UBLK_U_IO_FETCH_REQ" nil t)
    1.83+ (:integer +ublk-u-io-commit-and-fetch-req+ "UBLK_U_IO_COMMIT_AND_FETCH_REQ" nil t)
    1.84+ (:integer +ublk-u-io-need-get-data+ "UBLK_U_IO_NEED_GET_DATA" nil t)
    1.85+ (:integer +ublk-param-type-basic+ "UBLK_PARAM_TYPE_BASIC" nil t)
    1.86+ (:integer +ublk-param-type-discard+ "UBLK_PARAM_TYPE_DISCARD" nil t)
    1.87+ (:integer +ublk-param-type-devt+ "UBLK_PARAM_TYPE_DEVT" nil t))

     2.1--- a/lisp/ffi/ublk/pkg.lisp	Sun Jun 09 02:05:16 2024 -0400
     2.2+++ b/lisp/ffi/ublk/pkg.lisp	Sun Jun 09 16:55:08 2024 -0400
     2.3@@ -1,10 +1,9 @@
     2.4-;;; ublk.lisp --- low-level bindings to CUBLK
     2.5+;;; ublk.lisp --- low-level bindings to libulksrv
     2.6 
     2.7 ;;; Commentary:
     2.8 
     2.9 ;;; Code:
    2.10-(defpackage :ublk/pkg
    2.11-  (:nicknames :ublk)
    2.12+(defpackage :ublk
    2.13   (:use :cl :std :sb-alien)
    2.14   (:export ))
    2.15 

     3.1--- a/lisp/ffi/zstd/tests.lisp	Sun Jun 09 02:05:16 2024 -0400
     3.2+++ b/lisp/ffi/zstd/tests.lisp	Sun Jun 09 16:55:08 2024 -0400
     3.3@@ -38,7 +38,7 @@
     3.4         (is (zerop (zstd-iserror (zstd-decompress src src-size dst csize))))))))
     3.5 
     3.6 (deftest streaming ()
     3.7-  "Test the Zstd Streaming API functions"
     3.8+  "Test the Zstd Streaming API functions."
     3.9   (is (< (zstd-cstreaminsize) (zstd-cstreamoutsize)))
    3.10   (with-alien ((in (* zstd-inbuffer) (zstd::allocate-zstd-inbuffer-s))
    3.11                (out (* zstd-outbuffer) (zstd::allocate-zstd-outbuffer-s))