add spec for :all in associative destructuring

Author: puredanger

src/main/clojure/clojure/core/specs/alpha.clj

@@ -35,9 +35,10 @@
 (s/def ::as ::local-name)
 (s/def ::defaults ::local-name)
 (s/def ::select ::local-name)
+(s/def ::all ::local-name)
 
 (s/def ::map-special-binding
-  (s/keys :opt-un [::as ::or ::keys ::syms ::strs ::keys! ::syms! ::strs! ::select ::defaults]))
+  (s/keys :opt-un [::as ::or ::keys ::syms ::strs ::keys! ::syms! ::strs! ::select ::defaults ::all]))
 
 (s/def ::map-binding (s/tuple ::binding-form any?))
 
@@ -49,7 +50,7 @@
 (s/def ::map-bindings
   (s/every (s/or :map-binding ::map-binding
                  :qualified-keys-or-syms ::ns-keys
-                 :special-binding (s/tuple #{:as :or :keys :syms :strs :keys! :syms! :strs! :select :defaults} any?))
+                 :special-binding (s/tuple #{:as :or :keys :syms :strs :keys! :syms! :strs! :select :defaults :all} any?))
     :kind map?))
 
 (s/def ::map-binding-form (s/merge ::map-bindings ::map-special-binding))