(format nil ,(if like "'%~A%'" "'~A'") ,where-value))))
(if ,srl (concatenate 'string ,%%lrl (write-to-string ,srl)) "")
,@(when %%order (list %%order))
(format nil ,(if like "'%~A%'" "'~A'") ,where-value))))
(if ,srl (concatenate 'string ,%%lrl (write-to-string ,srl)) "")
,@(when %%order (list %%order))