From ef4276b45774f4c0a6a568e8650830bb118da029 Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Sat, 16 Jan 2021 01:17:23 +0100 Subject: [PATCH] ambrevar/file: Rename match-extensions to match-extension. --- .local/share/common-lisp/source/ambrevar/file.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/.local/share/common-lisp/source/ambrevar/file.lisp b/.local/share/common-lisp/source/ambrevar/file.lisp index a875fd32..c0dcd5e2 100644 --- a/.local/share/common-lisp/source/ambrevar/file.lisp +++ b/.local/share/common-lisp/source/ambrevar/file.lisp @@ -196,8 +196,8 @@ Without PREDICATES, list all files." (lambda (file) (local-time:timestamp> (modification-date file) timestamp))) -(export-always 'match-extensions) -(defun match-extensions (extension &rest more-extensions) +(export-always 'match-extension) +(defun match-extension (extension &rest more-extensions) "Return a predicate for files that match on of the provided extensions. Useful for `finder'." (lambda (file)