Skip to content
Snippets Groups Projects
Commit 4293ec7b authored by Peter Van Eynde's avatar Peter Van Eynde
Browse files

Fix the loop contruct. This makes ecl fail. (Closes: #545768)

parent f0a6b20f
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
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.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment