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))))
diff --git a/asdf.lisp b/asdf.lisp
index a7fe42f..75e454e 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -3462,7 +3462,7 @@ Please remove it from your ASDF configuration"))
(or (and (equal (first x) :function)
(typep (second x) 'symbol))
(and (equal (first x) 'lambda)
- (cddr x)
+ (cdr x)
(length=n-p (second x) 2)))))
(defun* validate-output-translations-directive (directive)
_______________________________________________
asdf-devel mailing list
[email protected]
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
