[copy-file / pathname only work for file-streams
clinton@unknownlamer.org**20080106182854] hunk ./src/database.lisp 131
-(defmethod (setf audio-data) ((new-value stream) (file audio-file))
+(defmethod (setf audio-data) ((new-value file-stream) (file audio-file))