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