[Use prettier date formate for compact show lists
clinton@unknownlamer.org**20080117180032] {
hunk ./src/util.lisp 22
+
+(defun brief-date (&optional (date (get-universal-time)))
+  (multiple-value-bind (s m h date month year) (decode-universal-time date)
+    (declare (ignore s m h))
+    (format nil "~4D-~2D-~2D" year month date)))
+
+
hunk ./src/web-common.lisp 278
-	    (date-string-brief (show-date show))
+	    (brief-date (show-date show))
}