Merge branch 'develop'

Author: danielcompton

.github/CODEOWNERS

@@ -0,0 +1 @@
+* @danielcompton

.travis.yml

@@ -1,3 +1,6 @@
 language: clojure
-lein: lein2
-script: lein2 testall
+script: lein testall
+jdk:
+- oraclejdk8
+- oraclejdk11
+- openjdk-ea

CHANGELOG.md

@@ -0,0 +1,14 @@
+# Changelog
+All notable changes to this project will be documented in this file.
+
+The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
+and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
+
+## Unreleased
+
+
+
+## 0.11.6 - 2018-12-07
+
+### Fixed
+- Fix lazy-loop's support for destructured bindings

README.md

@@ -1,12 +1,15 @@
-[![Build Status](https://secure.travis-ci.org/flatland/useful.png)](http://travis-ci.org/flatland/useful)
+# Useful
+
+A collection of generally-useful Clojure utility functions.
+
+[![Build Status](https://www.travis-ci.org/clj-commons/useful.svg)](https://www.travis-ci.org/clj-commons/useful)
 
 ![lein dependency](https://clojars.org/org.flatland/useful/latest-version.svg)
 
-These two repositories are usually identical:
+[![cljdoc badge](https://cljdoc.org/badge/org.flatland/useful)](https://cljdoc.org/d/org.flatland/useful/CURRENT)
+
+## History
 
-* https://github.com/amalloy/useful
-* https://github.com/flatland/useful
+useful was originally created by [Alan Malloy](https://github.com/amalloy) and was part of the [flatland](https://github.com/flatland) organisation. In December 2018 it was moved to CLJ Commons for continued maintenance.
 
-The first is the canonical one.  Fixes tend to appear there first, and
-that is the preferred repository for filing issues on Github.  Fixes
-are backported to the second one periodically.
+It could previously be found at [amalloy/useful](https://github.com/amalloy/useful) and [flatland/useful](https://github.com/flatland/useful). [clj-commons/useful](https://github.com/clj-commons/useful) is the canonical repository now.

project.clj

@@ -1,17 +1,18 @@
-(defproject org.flatland/useful "0.11.5"
+(defproject org.flatland/useful "0.11.6-SNAPSHOT"
   :description "A collection of generally-useful Clojure utility functions"
   :license {:name "Eclipse Public License - v 1.0"
             :url "http://www.eclipse.org/legal/epl-v10.html"
             :distribution :repo}
   :url "https://github.com/amalloy/useful"
-  :dependencies [[org.clojure/clojure "1.6.0"]
+  :dependencies [[org.clojure/clojure "1.9.0"]
                  [org.clojure/tools.macro "0.1.1"]
                  [org.clojure/tools.reader "0.7.2"]]
-  :aliases {"testall" ["with-profile" "dev,default:dev,1.3,default:dev,1.4,default:dev,1.5,default:dev,1.7,default" "test"]}
-  :profiles {:1.7 {:dependencies [[org.clojure/clojure "1.7.0-alpha2"]]}
-             :1.5 {:dependencies [[org.clojure/clojure "1.5.1"]]}
-             :1.4 {:dependencies [[org.clojure/clojure "1.4.0"]]}
-             :1.3 {:dependencies [[org.clojure/clojure "1.3.0"]]} }
+  :aliases {"testall" ["with-profile" "1.6:1.7:1.8:1.9:1.10" "test"]}
+  :profiles {:1.10 {:dependencies [[org.clojure/clojure "1.10.0-RC3"]]}
+             :1.9  {}
+             :1.8  {:dependencies [[org.clojure/clojure "1.8.0"]]}
+             :1.7  {:dependencies [[org.clojure/clojure "1.7.0"]]}
+             :1.6  {:dependencies [[org.clojure/clojure "1.6.0"]]}}
   :plugins [[codox "0.8.0"]]
   :codox {:src-dir-uri "http://github.com/flatland/useful/blob/develop/"
           :src-linenum-anchor-prefix "L"})

src/flatland/useful/seq.clj

@@ -117,10 +117,11 @@
   need any laziness."
   [bindings & body]
   (let [f 'lazy-recur
-        [names values] (alternates bindings)]
-    `(letfn [(~f [~@names]
+        [names values] (alternates bindings)
+        blob-names (repeatedly (count names) gensym)]
+    `(letfn [(~f [~@blob-names]
                (lazy-seq
-                 (iter# ~@names)))
+                 (iter# ~@blob-names)))
              (iter# [~@names]
                ~@body)]
        (~f ~@values))))

test/flatland/useful/debug_test.clj

@@ -1,5 +1,5 @@
 (ns flatland.useful.debug-test
-  (use flatland.useful.debug clojure.test))
+  (:use flatland.useful.debug clojure.test))
 
 (defmacro test-? [form]
   `(let [form# '~form

test/flatland/useful/seq_test.clj

@@ -98,7 +98,14 @@
   (testing "0-arg lazy-loop"
     (is (= [1 1 1] (take 3
                          (lazy-loop []
-                           (cons 1 (lazy-recur))))))))
+                           (cons 1 (lazy-recur)))))))
+  (testing "destructuring support"
+    (is (= (range 1 6)
+           ((fn my-map [f xs] (lazy-loop [[x & xs :as coll] xs]
+                                (when (seq coll)
+                                  (cons (f x)
+                                        (lazy-recur xs)))))
+            inc (range 5))))))
 
 (deftest test-alternates
   (is (= '[[a b] [1 2]]