From 8b5bfdd64db9ed0b304e67302b41dcb3e5a37df8 Mon Sep 17 00:00:00 2001 From: Oscar Najera Date: Fri, 6 Jun 2025 16:48:06 +0200 Subject: close db --- geoip/ip.lisp | 3 +++ 1 file changed, 3 insertions(+) (limited to 'geoip') diff --git a/geoip/ip.lisp b/geoip/ip.lisp index c7b8a77..dfdabc0 100644 --- a/geoip/ip.lisp +++ b/geoip/ip.lisp @@ -272,6 +272,9 @@ (multiple-value-bind (ptr fd size) (mmap:mmap file) (mmap->mmdb file ptr fd size))) +(defun close-mmdb (mmdb) + (with-slots (ptr fd size) mmdb + (mmap:munmap ptr fd size))) (defvar *mmdb* (make-mmdb "GeoLite2-Country.mmdb")) (with-slots (metadata) *mmdb* -- cgit v1.2.3