Explorar o código

Slight tweak to READ-CONTENT's metadata parsing.

Brit Butler %!s(int64=11) %!d(string=hai) anos
pai
achega
16272cc6a6
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      src/content.lisp

+ 1 - 1
src/content.lisp

@@ -49,7 +49,7 @@
49 49
              (read-sequence seq stream)
50 50
              (remove #\Nul seq)))
51 51
          (parse-field (str)
52
-           (nth-value 1 (cl-ppcre:scan-to-strings "[a-zA-Z]+: (.*)" str)))
52
+           (nth-value 1 (cl-ppcre:scan-to-strings "[a-zA-Z]+:\\s+(.*)" str)))
53 53
          (field-name (line)
54 54
            (make-keyword (string-upcase (subseq line 0 (position #\: line))))))
55 55
     (with-open-file (in file :external-format '(:utf-8))