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.
diff --git a/asdf.lisp b/asdf.lisp
index db0c607..354333a 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -2703,7 +2703,7 @@ Returns the new tree (which probably shares structure with the old one)"
(if first-op-tree
(progn
(aif (assoc op2 (cdr first-op-tree))
- (if (find c (cdr it))
+ (if (find c (cdr it) :test #'equal)
nil
(setf (cdr it) (cons c (cdr it))))
(setf (cdr first-op-tree)
_______________________________________________
asdf-devel mailing list
[email protected]
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
