- (if ,where-name
- (format nil (if (stringp ,where-value)
- (if ,like " where ~A like '%~A%'" " where ~A='~A'")
- " where ~A=~A")
- ,where-name ,where-value)
+ ,@(when %%where (list %%where))
+ (if (quote ,where-name)
+ (if (stringp ,where-value)
+ (format nil ,(if like "'%~A%'" "'~A'") ,where-value)
+ (write-to-string ,where-value))