(unless (stringp (second option))
(error "~S is not a legal :documentation value" (second option)))
(setf documentation t)
(push `(:documentation ,(second option)) canonized-options))
(otherwise
(push `(',(car option) ',(cdr option)) canonized-options))))
(unless (stringp (second option))
(error "~S is not a legal :documentation value" (second option)))
(setf documentation t)
(push `(:documentation ,(second option)) canonized-options))
(otherwise
(push `(',(car option) ',(cdr option)) canonized-options))))