diff options
| -rw-r--r-- | geoip/ip.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
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* |