RosettaCodeData/Task/Associative-array-Iteration/Common-Lisp/associative-array-iteration...

3 lines
96 B
Common Lisp

(loop for (key value) on plist :by 'cddr
do (format t "~&Key: ~a, Value: ~a." key value))