[bknr-cvs] hans changed trunk/projects/bos/queries.lisp

[BKNR Commits]

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

queries scratchpad
A   trunk/projects/bos/queries.lisp

Added: trunk/projects/bos/queries.lisp
===================================================================
--- trunk/projects/bos/queries.lisp	                        (rev 0)
+++ trunk/projects/bos/queries.lisp	2009-03-11 09:24:57 UTC (rev 4337)
@@ -0,0 +1,15 @@
+;; ad-hoc queries that were useful
+
+;; contracts processed by gitte
+(loop for year from 2007 upto 2009
+   do (format t "~A: ~A~%"
+              year
+              (reduce #'+
+                      (remove-if-not
+                       (lambda (contract)
+                         (and (= year (nth-value 5 (decode-universal-time (contract-date contract))))
+                              (cl-ppcre:scan "gitte" (if (stringp (contract-paidp contract))
+                                                         (contract-paidp contract)
+                                                         ""))))
+                       (class-instances 'contract))
+                      :key #'contract-price)))