Error when content line break is CR-LF.
chuntaro opened this issue · 1 comments
chuntaro commented
Can you apply the following patch?
--- content.lisp.orig 2016-11-14 12:19:20.537514400 +0900
+++ content.lisp 2016-11-15 17:36:08.327274800 +0900
@@ -70,7 +70,7 @@
(defun parse-metadata (stream)
"Given a STREAM, parse metadata from it or signal an appropriate condition."
(flet ((get-next-line (input)
- (string-trim '(#\Space #\Newline #\Tab) (read-line input nil))))
+ (string-trim '(#\Space #\Return #\Newline #\Tab) (read-line input nil))))
(unless (string= (get-next-line stream) (separator *config*))
(error "The file, ~a, lacks the expected header: ~a" (file-namestring stream) (separator *config*)))
(loop for line = (get-next-line stream)
chuntaro commented
Thank you!