| changeset 3: | 8f59e2f1b8c4 |
| parent: | eb8ed24e8a76 |
| child: | 4230ce61dcfa |
| author: | ellis <ellis@rwest.io> |
| date: | Fri, 05 May 2023 22:41:30 -0400 |
| permissions: | -rw-r--r-- |
| description: | stuff |
| 3 | 1 | (in-package #:demo) |
| 0 | 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))) |