Note binary hash on launch.

backends/nxgl/context.lisp

@@ -182,6 +182,9 @@
       (unwind-protect (finalize main)
         (nxgl:shutdown)))))
 
+(defmethod version ((_ (eql :binary)))
+  "?")
+
 (defun system-username ()
   (nxgl:username))
 

main.lisp

@@ -128,7 +128,7 @@
   (standalone-logging-handler)
   (v:output-here)
   (v:info :trial.main "GENESIS")
-  (v:info :trail.main "Launching version ~a" (version :app))
+  (v:info :trail.main "Launching version ~a (~a)" (version :app) (version :binary))
   (when (string= "true" (uiop:getenv "TRIAL_QUIT_AFTER_INIT"))
     (let ((context (getf initargs :context)))
       (setf (getf initargs :context) (list* :visible NIL context))))

toolkit.lisp

@@ -47,6 +47,11 @@
             (asdf:component-version (asdf:find-system +app-system+))
             (when commit (subseq commit 0 7)))))
 
+(defmethod version ((_ (eql :binary)))
+  (with-output-to-string (out)
+    (loop for o across (sha3:sha3-digest-file (first (uiop:raw-command-line-arguments)) :output-bit-length 224)
+          do (format out "~2,'0X" o))))
+
 (let ((cache NIL))
   (defun data-root (&optional (app +app-system+))
     (if (deploy:deployed-p)

trial.asd

@@ -199,6 +199,7 @@
                :quickhull
                :convex-covering
                :machine-state/opengl
+               :sha3
                (:feature :windows :com-on)))
 
 #+sbcl