[asdf-devel] location-function-p.patch

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

Hello! Please review my patch.

(and
       ...
       (length=n-p x 2)
       (or ...
	   (and (equal (first x) 'lambda)
		(cddr x) ;;bug - if (length=n-p x 2) = t, then (cddr x) always = nil
		(length=n-p (second x) 2))))
-------------- next part --------------
A non-text attachment was scrubbed...
Name: location-function-p.patch
Type: text/x-patch
Size: 437 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/asdf-devel/attachments/20111219/6f83b6b1/attachment.bin>