[Delete external files when dropping audio-files and radio-shows
clinton@unknownlamer.org**20080115221812] {
hunk ./src/database.lisp 91
+(defmethod drop-pobject :before ((audio-file audio-file))
+  (if (slot-boundp audio-file 'path-name)
+      (delete-file
+       (translate-logical-pathname (slot-value audio-file 'path-name)))))
+
hunk ./src/database.lisp 226
+(defmethod drop-pobject :before ((show radio-show))
+  (when-bind audio-file (audio-data show)
+    (drop-pobject audio-file)))
+
+
}