1.1--- a/lisp/ffi/zstd/pkg.lisp	Sat Jun 01 00:39:01 2024 -0400
     1.2+++ b/lisp/ffi/zstd/pkg.lisp	Sat Jun 01 02:45:44 2024 -0400
     1.3@@ -36,9 +36,20 @@
     1.4 
     1.5 ;;; Code:
     1.6 (defpackage :zstd
     1.7-  (:use :cl :std)
     1.8+  (:use :cl :std :sb-alien)
     1.9   (:nicknames :zstd))
    1.10 
    1.11 (in-package :zstd)
    1.12 
    1.13-(define-alien-loader "zstd" t)
    1.14+(define-alien-loader "zstd" t "/usr/lib/")
    1.15+
    1.16+;;; Simple API
    1.17+(define-alien-routine zstd-compress size-t
    1.18+  (dst (* t)) (dst-capacity size-t)
    1.19+  (src (* t)) (src-size size-t)
    1.20+  (compression int))
    1.21+
    1.22+(define-alien-routine zstd-decompress size-t
    1.23+  (dst (* t)) (dst-capacity size-t)
    1.24+  (src (* t)) (compressed-size size-t))
    1.25+