Optionally enable timestamp in save snippet uri

_web_server/server/playground-server.scm

@@ -28,6 +28,7 @@
 (define SNIPPET-FILE "code.sv")
 (define IVERILOG-METATOP-FILE "top_iverilog.sv")
 (define VERILATOR-CPP-FILE "top_verilator.cpp")
+(define USE-TIME-IN-SAVE-URL #f)
 
 (define IVERILOG-EXE "iverilog")
 (define VVP-EXE "vvp")
@@ -668,8 +669,9 @@
                           (mkdtemp
                            (path+
                             stor-base
-                            (format "~a-XXXXXX"
-                                    (current-time)))))
+                            (if USE-TIME-IN-SAVE-URL
+                                (format "~a-XXXXXX" (current-time))
+                                "XXXXXX"))))
                          ref-stor-dir)))
                 (save-to-storage (path+ stor-base stor-dir) code)
                 (make-response