Verify that parse-field returns an array.
Otherwise read-content fails to parse files with empty headers as it tries to aref nil
This commit is contained in:
parent
81fe5a72d3
commit
3c62deaff2
1 changed files with 1 additions and 0 deletions
|
@ -59,6 +59,7 @@
|
|||
(error "The provided file lacks the expected header."))
|
||||
(let ((meta (loop for line = (read-line in nil)
|
||||
until (string= line (separator *config*))
|
||||
when (parse-field line)
|
||||
appending (list (field-name line)
|
||||
(aref (parse-field line) 0))))
|
||||
(filepath (enough-namestring file (repo *config*)))
|
||||
|
|
Loading…
Add table
Reference in a new issue