|
|
|
|
49
|
(read-sequence seq stream)
|
49
|
(read-sequence seq stream)
|
50
|
(remove #\Nul seq)))
|
50
|
(remove #\Nul seq)))
|
51
|
(parse-field (str)
|
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
|
(field-name (line)
|
53
|
(field-name (line)
|
54
|
(make-keyword (string-upcase (subseq line 0 (position #\: line))))))
|
54
|
(make-keyword (string-upcase (subseq line 0 (position #\: line))))))
|
55
|
(with-open-file (in file :external-format '(:utf-8))
|
55
|
(with-open-file (in file :external-format '(:utf-8))
|