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.
Thanks a lot! Applied as 2.018.4.
—♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org
2011/11/3 Сергей Катревич linkfly1@newmail.ru:
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.
asdf-devel mailing list asdf-devel@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel