cl-rw

commit f66d2198928dc716000bd5d63dd8b7d431c74399
parent 7c0ea423908d783a109ccb32caef40deeb7a001e
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat,  1 Nov 2014 10:10:35 +0100

todo added

Diffstat:
M
email.lisp
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/email.lisp b/email.lisp
@@ -57,7 +57,7 @@
 (defun header-alist (reader)
   (rw:till (rw:peek-reader (header-reader (rw:char-reader reader)))))
 
-(defun content-type (reader)
+(defun content-type (reader) ;; TODO make link undefined, add collector?
   (flet ((peek () (rw:peek reader))
          (next () (rw:next reader))
          (skip () (rw:skip reader))