376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
|
((= 1 status-compare-result) ;; src is better, dest is worse
(list dest-test-id "DIRTY-WORSE" (conc src-status "->" dest-status)))
(else
(list dest-test-id "DIRTY-BETTER" (conc src-status "->" dest-status)))
)))
(list test-name item-path xor-new-item)))
all-keys)))
;;(BB> "hide-clean="hide-clean)
(if hide-clean
(filter
(lambda (item)
;;(print item)
(not
(equal?
"CLEAN"
|
|
|
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
|
((= 1 status-compare-result) ;; src is better, dest is worse
(list dest-test-id "DIRTY-WORSE" (conc src-status "->" dest-status)))
(else
(list dest-test-id "DIRTY-BETTER" (conc src-status "->" dest-status)))
)))
(list test-name item-path xor-new-item)))
all-keys)))
(if hide-clean
(filter
(lambda (item)
;;(print item)
(not
(equal?
"CLEAN"
|