marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

conent.lisp (parse-medatada): add filename to the error message

Browse source
This commit is contained in:
Javier Olaechea 2014-11-11 22:59:17 -05:00
parent 8273efe00e
commit 1ff10b9b63
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/content.lisp
View file

@ -60,7 +60,7 @@
(flet ((get-next-line (input) (flet ((get-next-line (input)
(string-trim '(#\Space #\Newline #\Tab) (read-line input nil)))) (string-trim '(#\Space #\Newline #\Tab) (read-line input nil))))
(unless (string= (get-next-line stream) (separator *config*)) (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) (loop for line = (get-next-line stream)
until (string= line (separator *config*)) until (string= line (separator *config*))
appending (parse-initarg line)))) appending (parse-initarg line))))