Source

cl-taglib / cl-taglib.lisp

Diff from to

cl-taglib.lisp

 (defcfun (tagfile-save "taglib_file_save") :boolean
   (file :pointer))
 
+;;; BUG: does not emit error if file can't be opened
 (defmacro with-tag-file ((var path) &body body)
   `(let ((,var (file-new ,path)))
      (unwind-protect (progn