Megatest

Differences From Artifact [adf24d701b]:

• File common.scm — part of check-in [30862628e2] at 2023-11-20 19:18:55 on branch v1.80-revolution — Chipping away at server issues (user: mrwellan, size: 128840) [annotate] [blame] [check-ins using]

To Artifact [0e724c12c1]:

• File common.scm — part of check-in [b9d51df3ee] at 2023-12-13 13:06:08 on branch v1.80-revolution — Moved the addition of /.mtdb for db paths up to db:setup, and removed it from other places. Initial implementation of -cleanup-db. (user: mmgraham, size: 128739) [annotate] [blame] [check-ins using] [more...]

423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438

	    'schema
	    'killservers
	    'adj-target
	    'new2old
	    '(dejunk)
	    ))
    ((tcp nfs)
     (debug:print 0 *default-log-port* "WARNING: cleanup-db NOT implemented yet for tcp and nfs.")
     #;(apply db:multi-db-sync 
	    dbstruct
	    'schema
	    'killservers
	    'adj-target
	    'new2old
	    '(dejunk)
	    )))

<
|

423
424
425
426
427
428
429

430
431
432
433
434
435
436
437

	    'schema
	    'killservers
	    'adj-target
	    'new2old
	    '(dejunk)
	    ))
    ((tcp nfs)

     (apply db:multi-db-sync 
	    dbstruct
	    'schema
	    'killservers
	    'adj-target
	    'new2old
	    '(dejunk)
	    )))