Commit 291676b6 authored by Gary King's avatar Gary King
Browse files


parent 1c7929a5
......@@ -1405,8 +1405,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)
for key = (and data (first data))
for value = (and data (second data))
for key = (first data)
for value = (second data)
while data
when (eq key keyword) do
(destructuring-bind (op qual (o c) &body body) value
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