1.1--- a/lisp/ffi/zstd/dict.lisp	Fri Oct 04 21:11:52 2024 -0400
     1.2+++ b/lisp/ffi/zstd/dict.lisp	Fri Oct 04 21:45:59 2024 -0400
     1.3@@ -329,16 +329,18 @@
     1.4           (notification-level unsigned)
     1.5           (dict-id unsigned)))
     1.6 
     1.7-;; Requires returning struct by value
     1.8-;; (define-alien-routine ("ZDICT_finalizeDictionary" zdict-finalize-dictionary) size-t
     1.9-;;   (dst-dict-buffer (* t))
    1.10-;;   (max-dict-size size-t)
    1.11-;;   (dict-content (* t))
    1.12-;;   (dict-content-size size-t)
    1.13-;;   (samples-buffer (* t))
    1.14-;;   (samples-sizes (* size-t))
    1.15-;;   (nb-samples unsigned)
    1.16-;;   (parameters zdict-params))
    1.17+;; NOTE: Requires returning struct by value
    1.18+
    1.19+;; This is the ONLY function which used libzstd-alien.so right now.
    1.20+(define-alien-routine ("ZDICT_finalizeDictionaryWithParams" zdict-finalize-dictionary) size-t
    1.21+  (dst-dict-buffer (* t))
    1.22+  (max-dict-size size-t)
    1.23+  (dict-content (* t))
    1.24+  (dict-content-size size-t)
    1.25+  (samples-buffer (* t))
    1.26+  (samples-sizes (* size-t))
    1.27+  (nb-samples unsigned)
    1.28+  (parameters (* zdict-params)))
    1.29 
    1.30 (define-alien-routine ("ZDICT_getDictID" zdict-get-dict-id) unsigned
    1.31   (dict-buffer (* t))