ambrevar/shell: Fix match-elf-library.

2021-01-13 14:43:32 +01:00 · 2021-01-13 14:43:32 +01:00 · bc361c9b6b
parent 6fe5380452
commit bc361c9b6b
1 changed files with 1 additions and 1 deletions
--- a/.local/share/common-lisp/source/ambrevar/shell.lisp
+++ b/.local/share/common-lisp/source/ambrevar/shell.lisp
@ -120,7 +120,7 @@ Useful for `walk'."
 (export-always 'match-elf-library)
 (defun match-elf-library ()
  (lambda (file)
-    (ppcre:scan "application/x-sharedlib" (first (file-type file)))))
+    (ppcre:scan "application/x-sharedlib" (first (file-mime-type file)))))

 (export-always '*finder-include-directories*)
 (defvar *finder-include-directories* t