seriesのリードマクロ

lisp common lisp series 
(series::install)

すればmap-fnを#M seriesを #Z でかけるんだー。しらなかった。
こんな感じ。

CL-USER> (require :series)
("SB-CLTL2" "SERIES")
CL-USER> (series:collect (series:map-fn 'integer #'+ (series:scan '(1 2 3))))
(1 2 3)
CL-USER> (series::install)
T
CL-USER> (series:collect (#M+ #Z(1 2 3)))
(1 2 3)
CL-USER>