48e5788f61e3

--- a/src/problems/lcsm.lisp	Wed Nov 07 20:38:33 2018 -0500
+++ b/src/problems/lcsm.lisp	Wed Nov 07 20:39:43 2018 -0500
@@ -71,8 +71,7 @@
 (define-problem lcsm (data stream)
     *input-lcsm*
     "AC"
-  (let ((lines (iterate (for (nil line) :in-fasta data)
-                        (collect line))))
+  (let ((lines (mapcar #'cdr (read-fasta-into-alist data))))
     (-<> (reduce #'longest-common-substrings-of-any (rest lines)
                  :initial-value (list (first lines)))
       (sort <> #'string<) ; tests