Merge pull request #67 from PuercoPop/patch-3

content.lisp (parse-metadata): add filename to the error message
This commit is contained in:
Brit Butler 2014-11-11 23:09:15 -05:00
commit 4fd195db19

View file

@ -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))))