Macro Do-Map

Part of:

package fset
( do-map ( key-var value-var map &optional value ) &body body )
For each pair of map, binds key-var and value-var and executes body.
When done, returns value.