Small error tweak.

2012-08-20 20:53:57 -04:00 · 2012-08-20 20:53:57 -04:00 · ec025b5f65
commit ec025b5f65
parent 0d0f7b564b
1 changed files with 1 additions and 1 deletions
--- a/src/posts.lisp
+++ b/src/posts.lisp
@ -39,7 +39,7 @@
    (let ((args (loop for field in '("title" "tags" "date" "format")
                   for line = (read-line in nil)
                   when (not (search field line :test #'string=))
-                   do (error "The provided file lacks the expected header.")
+                   do (error "The provided file lacks the field ~a." field)
                   appending (list (intern (string-upcase field) :keyword)
                                   (aref (parse-field (read-line in)) 0)))))
    (check-header)