From 17647db69cb8451009d338c01304d525b647d447 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sun, 24 Nov 2024 20:10:57 -0800
Subject: make uids shorter

---
 src/hypnotisml.lisp | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

(limited to 'src/hypnotisml.lisp')

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
 
-- 
cgit v1.2.3