Commits

Walton Hoops committed a467bd8

accept pathnames in file-new

  • Participants
  • Parent commits 570e99b

Comments (0)

Files changed (1)

File cl-taglib.lisp

   (file :pointer))
 
 (defun file-new (file)
-  (let ((ptr (foreign-funcall "taglib_file_new" :string file :pointer)))
+  (let ((ptr (foreign-funcall "taglib_file_new" :string (namestring file) :pointer)))
     (cond ((null-pointer-p ptr) (error (format nil "Invalid tagfile: ~s" file)))
 	  ((not (file-is-valid ptr)) (error (format nil "Invalid tagfile: ~s" file)))
 	  (t ptr))))