(loop for data = rest then (cddr data) while data for key = (first data) for value = (second data) ...)
What about
(loop :for (key value) :on data :by #'cddr ...)
[ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ] The fear of death follows from the fear of life. A man who lives fully is prepared to die at any time. -- Mark Twain