Index: trunk/projects/bos/queries.lisp
===================================================================
--- trunk/projects/bos/queries.lisp	(revision 4337)
+++ trunk/projects/bos/queries.lisp	(revision 4338)
@@ -2,4 +2,8 @@
 
 ;; 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~%"