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))))
Oops. I committed a different solution as 2.019.8, plus tested examples in test/test-utilities.script.
Thanks a lot!
—♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org If debugging is the process of removing bugs, then programming must be the process of putting them in. — Dijkstra
2011/12/18 Сергей Катревич linkfly1@newmail.ru:
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))))
asdf-devel mailing list asdf-devel@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel