From ec025b5f65e9690e3e26ebe1dbf27439ee49e3e7 Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Mon, 20 Aug 2012 20:53:57 -0400 Subject: [PATCH] Small error tweak. --- src/posts.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/posts.lisp b/src/posts.lisp index e580fce..788baff 100644 --- 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)