Commit 187895ab authored by D Herring's avatar D Herring
Browse files

ECL bugfix

ECL was complaining that
""
Iteration in LOOP follows body code.
Current LOOP context: FOR KEY = (FIRST DATA) FOR.
""

SBCL allows a looser LOOP syntax; it is nontrivial to port SBCL's LOOP to ECL,
though they do share a common heritage.
parent 947482f5
......@@ -1359,9 +1359,9 @@ 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))
while data
when (eq key keyword) do
(destructuring-bind (op qual (o c) &body body) value
(pushnew
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment