Commits

Walton Hoops committed 9d77eee

export file-save

  • Participants
  • Parent commits a467bd8

Comments (0)

Files changed (4)

 *~
-*.fasl
+*.fasl
+*.lib
+.#*
+*#
+*.fas

File README.txt

-This is the stub README.txt for the "cl-taglib" project.

File cl-taglib.lisp

 (defcfun (file-audioproperties "taglib_file_audioproperties") :pointer
   (file :pointer))
 
-(defcfun (tagfile-save "taglib_file_save") :boolean
+(defcfun (file-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

File package.lisp

   (:nicknames #:taglib)
   (:export #:file-new
 	   #:file-free
+	   #:file-save
 	   #:with-tag-file
 	   #:file-audioproperties
 	   #:file-tag