Merge pull request #67 from PuercoPop/patch-3

content.lisp (parse-metadata): add filename to the error message

src/content.lisp

@@ -60,7 +60,7 @@
   (flet ((get-next-line (input)
            (string-trim '(#\Space #\Newline #\Tab) (read-line input nil))))
     (unless (string= (get-next-line stream) (separator *config*))
-      (error "The file lacks the expected header: ~a" (separator *config*)))
+      (error "The file, ~a, lacks the expected header: ~a" (file-namestring stream) (separator *config*)))
     (loop for line = (get-next-line stream)
        until (string= line (separator *config*))
        appending (parse-initarg line))))