[Strip time portion from show-date
clinton@unknownlamer.org**20080111200921] hunk ./src/database.lisp 213
+(defmethod initialize-instance :after ((i radio-show) &key &allow-other-keys)
+  (let ((show-date (show-date i)))
+    (if show-date (setf (show-date i) show-date))))
+
+(defmethod (setf show-date) :around (new-date (show radio-show))
+  (call-next-method (strip-time new-date) show))
+