(dolist (prop '(:location :hypervisor))
(multiple-value-bind (value foundp) (hostprop vmhost prop)
(when foundp (hostprop-default host prop value))))))))
(dolist (prop '(:location :hypervisor))
(multiple-value-bind (value foundp) (hostprop vmhost prop)
(when foundp (hostprop-default host prop value))))))))