diff options
| -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 |