1 (in-package #:demo) 2 3 (defun random-id () 4 (format NIL "~8,'0x-~8,'0x" (random #xFFFFFFFF) (get-universal-time))) 5 6 (defun scan-dir (dir filename callback) 7 (dolist (path (directory (merge-pathnames (merge-pathnames filename "**/") dir))) 8 (funcall callback path)))