(compute-pbindings supplied `(keyword-supplied-p ,keyword ,rest)))
(compute-pbindings variable `(if ,supplied
(keyword-lookup ,keyword ,rest)
(compute-pbindings supplied `(keyword-supplied-p ,keyword ,rest)))
(compute-pbindings variable `(if ,supplied
(keyword-lookup ,keyword ,rest)