`(multiple-value-bind (,g) ,value-form
,g)))
((list-of-symbols-p vars)
`(multiple-value-bind (,g) ,value-form
,g)))
((list-of-symbols-p vars)
`(multiple-value-bind ,temps ,value-form
,@(mapcar #'(lambda (var temp)
`(setq ,var ,temp))
`(multiple-value-bind ,temps ,value-form
,@(mapcar #'(lambda (var temp)
`(setq ,var ,temp))