[When :data and :content-type are provided content-type was losing
clinton@unknownlamer.org**20080115012605] {
hunk ./src/database.lisp 78
-(defmethod initialize-instance :after ((audio-file audio-file) &rest keys)
-  (declare (ignore keys))
+(defmethod initialize-instance :after ((audio-file audio-file)
+				       &key type &allow-other-keys)
hunk ./src/database.lisp 81
-    (setf (audio-data audio-file) (slot-value audio-file 'data))))
+    (setf (audio-data audio-file) (slot-value audio-file 'data)))
+  (when type
+    (setf (audio-file-type audio-file) type)))
}