From 8e6d7adbc7500f1e6255af6c03e4a0a68aa7a061 Mon Sep 17 00:00:00 2001 From: Peter Van Eynde <pvaneynd@debian.org> Date: Sat, 12 Sep 2009 10:09:23 +0100 Subject: [PATCH] Fixed the loop construct again. (Closes: #546205) --- asdf.lisp | 1 + debian/changelog | 6 ++++++ 2 files changed, 7 insertions(+) diff --git a/asdf.lisp b/asdf.lisp index 5bde8d9d..dba4f784 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1376,6 +1376,7 @@ Returns the new tree (which probably shares structure with the old one)" (loop for data = rest then (cddr data) for key = (and data (first data)) for value = (and data (second data)) + while 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 2bd19631..9753da78 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-asdf (1:20090819-3) unstable; urgency=low + + * Fixed the loop construct again. (Closes: #546205) + + -- Peter Van Eynde <pvaneynd@debian.org> Sat, 12 Sep 2009 10:08:23 +0100 + cl-asdf (1:20090819-2) unstable; urgency=low * Fix the loop contruct. This makes ecl fail. (Closes: #545768) -- GitLab