- (clsql:query (clsql:sql [select [first-name] [sum [emplid]] :from [employee]]
- [group-by [first-name]] [order-by [sum [emplid]]])
- :field-names nil :result-types nil)
- (("Josef" "2") ("Leon" "3") ("Nikita" "4") ("Leonid" "5") ("Yuri" "6")
- ("Konstantin" "7") ("Mikhail" "8") ("Boris" "9") ("Vladamir" "11")))
+ (let ((res (clsql:query (clsql:sql [select [first-name] [sum [emplid]] :from [employee]]
+ [group-by [first-name]] [order-by [sum [emplid]]])
+ :field-names nil :result-types nil)))
+ (mapcar (lambda (p) (list (car p) (truncate (read-from-string (second p)))))
+ res))
+ (("Josef" 2) ("Leon" 3) ("Nikita" 4) ("Leonid" 5) ("Yuri" 6)
+ ("Konstantin" 7) ("Mikhail" 8) ("Boris" 9) ("Vladamir" 11)))