[Support :skip in get-shows-by and add count-show-by
clinton@unknownlamer.org**20080111200944] hunk ./src/database.lisp 222
-(defun get-shows-by (slot-name start end &optional limit)
-  (get-instances-limit 'radio-show slot-name start end limit))
+(defun get-shows-by (slot-name start end &rest keys)
+  (apply #'get-instances-limit 'radio-show slot-name start end keys))
+
+(defun count-shows-by (slot-name start end &rest keys)
+  (let ((count 0))
+    (apply #'elephant:map-inverted-index (lambda (k v)
+					   (declare (ignore k v))
+					   (incf count))
+	   'radio-show slot-name
+	   :start start :end end
+	   :collect nil
+	   keys)
+    count))