Skip to content
Snippets Groups Projects
Commit 291676b6 authored by Gary King's avatar Gary King
Browse files

tweak

parent 1c7929a5
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
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