- ;; Object query resulting in a list of returned object instances
- ((and (string-equal "select" (symbol-name (car in-phrase)))
- (eq 'quote (first (second in-phrase)))
- (symbolp (second (second in-phrase))))
+ ;; object query
+ ((and (consp in-phrase)
+ (string-equal "sql-query" (symbol-name (car in-phrase)))
+ (consp (second in-phrase))
+ (eq 'quote (first (second in-phrase)))
+ (symbolp (second (second in-phrase))))