[Add write-audio-file method and implementation using fad:copy-stream
clinton@unknownlamer.org**20080215044956] {
hunk ./src/database.lisp 158
+(defgeneric write-audio-file (audio-file stream)
+  (:documentation "Write audio-file data to stream"))
+
hunk ./src/database.lisp 260
+(defmethod write-audio-file ((file audio-file) (stream stream))
+  (fad:copy-stream (audio-stream file) stream))
+
hunk ./src/packages.lisp 54
+   :write-audio-file
}