diff options
author | colin <colin@cicadas.surf> | 2024-11-24 20:10:57 -0800 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2024-11-24 20:10:57 -0800 |
commit | 17647db69cb8451009d338c01304d525b647d447 (patch) | |
tree | 557222300dcfd0574a5c2cb6eee0b4cefcaf9632 /src | |
parent | 350775b472e57c4dbd1b35fd8d827b099c7b0739 (diff) |
make uids shorter
Diffstat (limited to 'src')
-rw-r--r-- | src/hypnotisml.lisp | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/src/hypnotisml.lisp b/src/hypnotisml.lisp index 7e29bde..fdc1e9e 100644 --- a/src/hypnotisml.lisp +++ b/src/hypnotisml.lisp @@ -11,18 +11,14 @@ (loop :repeat indent :do (write-char #\space stream)))) (let ((counter 0) - (hostid (sxhash (list (lisp-implementation-type) - (lisp-implementation-version) - (machine-version) - (machine-type) - (software-version) - (uiop:hostname))))) + (hostid (sxhash (list (uiop:hostname))))) (defun make-uid () "returns a unique string" - (format nil "~36r~36r" - (sxhash (list (get-universal-time) - hostid)) - (sxhash (incf counter))))) + (format nil "~36r" + (sxhash (list + (get-universal-time) + hostid + (incf counter)))))) ;;; TYPES & CLASSES |