(process-directory (make-pathname :directory '(:absolute "my" "source" "dir"))
(make-pathname :directory '(:absolute "my" "target" "dir"))
"png" "jpg" "gif")
ISC
Recursively find files in a directory by extension, and group them by MD5 digest in an output directory
Common LispISC