3 Nov
2011
3 Nov
'11
3:51 p.m.
Hi lispers! I am wrote micro patch for maybe-add-tree function. He to add :test #'equal in (find c (cdr it)) form. Finded small bug: (maybe-add-tree '((LOAD-OP (PREPARE-PREVALENCE-OP :WEBLOCKS-PREVALENCE)) (COMPILE-OP (COMPILE-OP "file1") (PREPARE-PREVALENCE-OP :WEBLOCKS-PREVALENCE))) 'COMPILE-OP 'COMPILE-OP "file1") => ((LOAD-OP (PREPARE-PREVALENCE-OP :WEBLOCKS-PREVALENCE)) (COMPILE-OP (COMPILE-OP "file1" "file1") (PREPARE-PREVALENCE-OP :WEBLOCKS-PREVALENCE))) As you can see file1 duplicated. My patch fixed it.