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)))