- (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)
+ (format nil (if (stringp ,where-value)
+ (if ,like " like '%~A%'" "='~A'")
+ "=~A")
+ ,where-value)