Megatest

Check-in [7f0aa9d15d]
Login
Overview
Comment:Turn off db:multi-db-sync calls for now
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.7001-multi-db-rb01
Files: files | file ages | folders
SHA1: 7f0aa9d15d42d325ef66e2a9155269d884fa764a
User & Date: matt on 2022-04-12 09:08:26
Other Links: branch diff | manifest | tags
Context
2022-04-12
19:06
minor reformatting check-in: 98e76b1aca user: mrwellan tags: v1.7001-multi-db-rb01
09:08
Turn off db:multi-db-sync calls for now check-in: 7f0aa9d15d user: matt tags: v1.7001-multi-db-rb01
08:39
Wait only a second on lock collision for db open. Do the db init inside the existing lock. check-in: 5a53de80b8 user: matt tags: v1.7001-multi-db-rb01
Changes

Modified common.scm from [914a0f730c] to [fd321f41c8].

400
401
402
403
404
405
406

407

408
409
410
411
412
413
414
400
401
402
403
404
405
406
407

408
409
410
411
412
413
414
415







+
-
+







               (substring (conc (common:get-last-run-version)) 0 4))))

;;======================================================================
;; Move me elsewhere ...
;; RADT => Why do we meed the version check here, this is called only if version misma
;;
(define (common:cleanup-db dbstruct #!key (full #f))
  (debug:print 0 *default-log-port* "WARNING: common:cleanup-db has NOT been reimplemented yet! Please fix!")
  (apply db:multi-db-sync 
  #;(apply db:multi-db-sync 
   dbstruct
   'schema
   ;; 'new2old
   'killservers
   'adj-target
   ;; 'old2new
   'new2old