1.1--- a/lisp/lib/obj/hash/hasher.lisp	Fri May 24 14:40:38 2024 -0400
     1.2+++ b/lisp/lib/obj/hash/hasher.lisp	Fri May 24 14:51:25 2024 -0400
     1.3@@ -8,7 +8,7 @@
     1.4   (defvar *global-hasher* #'sxhash))
     1.5 
     1.6 ;; TODO 2024-05-24: do better
     1.7-(define-constant +global-hash+ (funcall *global-hasher* (get-universal-time)) :test #'/=)
     1.8+(sb-ext:define-load-time-global *global-hash* (funcall *global-hasher* (get-universal-time)))
     1.9 
    1.10 (macrolet ((specialize (str body)       ; TODO 2023-12-21: test if this actually compiles to fastpath
    1.11              `(if (typep ,str '(simple-array character 1))