make uids shorter

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