changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > demo / tk.lisp

changeset 0: eb8ed24e8a76
child: 8f59e2f1b8c4
author: ellis <ellis@rwest.io>
date: Sun, 30 Apr 2023 22:01:32 -0400
permissions: -rw-r--r--
description: init 
     1 (in-package #:cl-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)))