1.1--- a/lisp/ffi/zstd/stream.lisp	Sat Jun 22 00:51:41 2024 -0400
     1.2+++ b/lisp/ffi/zstd/stream.lisp	Sat Jun 22 19:45:19 2024 -0400
     1.3@@ -10,12 +10,12 @@
     1.4 (define-alien-routine "ZSTD_createCStream" (* zstd-cstream))
     1.5 (define-alien-routine "ZSTD_freeCStream" void (zcs (* zstd-cstream)))
     1.6 
     1.7-(define-alien-type zstd-enddirective int)
     1.8-;; (enum nil
     1.9-;;       (zstd-e-continue 0)
    1.10-;;       (zstd-e-flush 1)
    1.11-;;       (zstd-e-end 2))
    1.12+(define-alien-enum (zstd-enddirective int :default :error :test eq)
    1.13+                   :e-continue 0
    1.14+                   :e-flush 1
    1.15+                   :e-end 2)
    1.16 
    1.17+(define-alien-variable "ZSTD_frameParameters" int)
    1.18 (define-alien-routine "ZSTD_compressStream2" size-t
    1.19   (cctx (* zstd-cctx))
    1.20   (output (* zstd-outbuffer))