1.1--- a/lisp/ffi/ublk/srv.lisp	Fri Oct 04 16:14:44 2024 -0400
     1.2+++ b/lisp/ffi/ublk/srv.lisp	Fri Oct 04 21:11:52 2024 -0400
     1.3@@ -6,22 +6,7 @@
     1.4 (in-package :ublk)
     1.5 
     1.6 (define-alien-type ublksrv-ctrl-dev (struct ublksrv-ctrl-dev))
     1.7-
     1.8-(define-alien-type ublksrv-queue
     1.9-    (struct ublksrv-queue
    1.10-            (q-id int)
    1.11-            (q-depth int)
    1.12-            (ring-ptr (* io-uring))
    1.13-            (dev (* ublksrv-dev))
    1.14-            (private-data (* t))))
    1.15-
    1.16-(define-alien-type ublk-io-data
    1.17-  (struct ublk-io-data
    1.18-          (tag int)
    1.19-          (pad unsigned-int)
    1.20-          (iod (* ublksrv-io-desc))
    1.21-          (private-data (* t))))
    1.22-
    1.23+(define-alien-type ublksrv-tgt-type (struct ublksrv-tgt-type))
    1.24 ;; TODO 2024-09-29: add all of these as callbacks :C
    1.25 ;; (define-alien-type ublksrv-tgt-type 
    1.26 ;;   (struct ublksrv-tgt-type
    1.27@@ -76,6 +61,21 @@
    1.28   (struct ublksrv-dev
    1.29           (tgt ublksrv-tgt-info)))
    1.30 
    1.31+(define-alien-type ublksrv-queue
    1.32+    (struct ublksrv-queue
    1.33+            (q-id int)
    1.34+            (q-depth int)
    1.35+            (ring-ptr (* io-uring))
    1.36+            (dev (* ublksrv-dev))
    1.37+            (private-data (* t))))
    1.38+
    1.39+(define-alien-type ublk-io-data
    1.40+  (struct ublk-io-data
    1.41+          (tag int)
    1.42+          (pad unsigned-int)
    1.43+          (iod (* ublksrv-io-desc))
    1.44+          (private-data (* t))))
    1.45+
    1.46 (define-alien-routine build-user-data (unsigned 64)
    1.47   (tag unsigned)
    1.48   (op unsigned)