Revision: 4338 Author: hans URL: http://bknr.net/trac/changeset/4338

explain in sql

U trunk/projects/bos/queries.lisp

Modified: trunk/projects/bos/queries.lisp =================================================================== --- trunk/projects/bos/queries.lisp 2009-03-11 09:24:57 UTC (rev 4337) +++ trunk/projects/bos/queries.lisp 2009-03-11 09:27:42 UTC (rev 4338) @@ -1,6 +1,10 @@ ;; ad-hoc queries that were useful

;; contracts processed by gitte + +;; almost like +;; select year, sum(contract-price) from contract where contract-paidp like "gitte" group by year(contract-date) + (loop for year from 2007 upto 2009 do (format t "~A: ~A~%" year