diff -r 38e9c3be2392 -r 08621be7e780 lisp/ffi/zstd/dict.lisp --- a/lisp/ffi/zstd/dict.lisp Fri Oct 04 21:11:52 2024 -0400 +++ b/lisp/ffi/zstd/dict.lisp Fri Oct 04 21:45:59 2024 -0400 @@ -329,16 +329,18 @@ (notification-level unsigned) (dict-id unsigned))) -;; Requires returning struct by value -;; (define-alien-routine ("ZDICT_finalizeDictionary" zdict-finalize-dictionary) size-t -;; (dst-dict-buffer (* t)) -;; (max-dict-size size-t) -;; (dict-content (* t)) -;; (dict-content-size size-t) -;; (samples-buffer (* t)) -;; (samples-sizes (* size-t)) -;; (nb-samples unsigned) -;; (parameters zdict-params)) +;; NOTE: Requires returning struct by value + +;; This is the ONLY function which used libzstd-alien.so right now. +(define-alien-routine ("ZDICT_finalizeDictionaryWithParams" zdict-finalize-dictionary) size-t + (dst-dict-buffer (* t)) + (max-dict-size size-t) + (dict-content (* t)) + (dict-content-size size-t) + (samples-buffer (* t)) + (samples-sizes (* size-t)) + (nb-samples unsigned) + (parameters (* zdict-params))) (define-alien-routine ("ZDICT_getDictID" zdict-get-dict-id) unsigned (dict-buffer (* t))