From 4293ec7b2feb5a62f44206ec9515521d001f3719 Mon Sep 17 00:00:00 2001 From: Peter Van Eynde <pvaneynd@debian.org> Date: Thu, 10 Sep 2009 14:21:51 +0100 Subject: [PATCH] Fix the loop contruct. This makes ecl fail. (Closes: #545768) --- asdf.lisp | 5 ++--- debian/changelog | 6 ++++++ 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index deadfc30..5bde8d9d 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1374,9 +1374,8 @@ Returns the new tree (which probably shares structure with the old one)" (loop for name in +asdf-methods+ do (let ((keyword (intern (symbol-name name) :keyword))) (loop for data = rest then (cddr data) - while data - for key = (first data) - for value = (second data) + for key = (and data (first data)) + for value = (and data (second data)) when (eq key keyword) do (destructuring-bind (op qual (o c) &body body) value (pushnew diff --git a/debian/changelog b/debian/changelog index 80753a09..2bd19631 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-asdf (1:20090819-2) unstable; urgency=low + + * Fix the loop contruct. This makes ecl fail. (Closes: #545768) + + -- Peter Van Eynde <pvaneynd@debian.org> Thu, 10 Sep 2009 14:20:11 +0100 + cl-asdf (1:20090819-1) unstable; urgency=low * New upstream, New homepage and new upstream repository. -- GitLab