# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1541641183 18000
# Node ID 48e5788f61e316b50f7e3ca169c3a71e487eac67
# Parent  fc16ddecf261943b5a20642ee90458e369ada698
Cleanup

diff -r fc16ddecf261 -r 48e5788f61e3 src/problems/lcsm.lisp
--- 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