Actually use READ-LINE parameter in MAKE-READ-RFC822-HEADERS.

(Noticed by bernauer.)
This commit is contained in:
sperber 2003-01-24 09:51:17 +00:00
parent 5f4c1b510b
commit 9893716650
1 changed files with 1 additions and 1 deletions

View File

@ -99,7 +99,7 @@
(read-line read-crlf-line))
(let lp ((alist '()))
(receive (field val)
(read-rfc822-field port read-line)
(read-field port read-line)
(if field
(lp (cons (cons field val) alist))
(reverse alist)))))))