(unless (proper-list-of-length-p spec 2)
(error "malformed ONCE-ONLY binding spec: ~S" spec))
(let* ((name (first spec))
(unless (proper-list-of-length-p spec 2)
(error "malformed ONCE-ONLY binding spec: ~S" spec))
(let* ((name (first spec))
`(let ((,,name ,,exp-temp))
,,(frob (rest specs) body))))))))
\f
`(let ((,,name ,,exp-temp))
,,(frob (rest specs) body))))))))
\f