# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1577038890 18000
# Node ID 72cd66a36853d24c4e73c73be9de9cbd3e4d3845
# Parent  93ba483d9bc9266f33400de2518e828769aa6cfc# Parent  dbd7237ece35d4833d1e1f17030b56a84db99f23
Merge.

diff -r dbd7237ece35 -r 72cd66a36853 src/utils.lisp
--- a/src/utils.lisp	Fri Dec 20 17:12:29 2019 -0500
+++ b/src/utils.lisp	Sun Dec 22 13:21:30 2019 -0500
@@ -34,6 +34,11 @@
     (stream (alexandria:read-stream-content-into-string input))
     (string (copy-seq input))))
 
+(defun ensure-list (value)
+  (if (listp value)
+    value
+    (list value)))
+
 
 (defun hamming (sequence1 sequence2 &key (test #'eql))
   "Return the Hamming distance between `sequence1` and `sequence2`."
@@ -111,11 +116,6 @@
     result))
 
 
-(defun ensure-list (value)
-  (if (listp value)
-    value
-    (list value)))
-
 
 ;;;; Math ---------------------------------------------------------------------
 (defmacro do-sum ((var from to) &body body)