[asdf-devel] maybe-add-tree.patch

[Сергей Катревич]

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.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: maybe-add-tree.patch
Type: text/x-patch
Size: 490 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/asdf-devel/attachments/20111103/b3313474/attachment.bin>