      :capacity (.capacity s)})
   Object
   (hashCode [a]
-    (-> (hash-combine :BottomPackedStorage) (hash-combine n)))
+    (-> (hash :BottomPackedStorage) (hash-combine n)))
   (equals [a b]
     (or (identical? a b)
         (and (instance? BottomPackedStorage b) (= n (.n ^BottomPackedStorage b)))))

(deftype BandRegion [^long m ^long n ^long kl ^long ku ^long uplo ^long diag]
  Object
  (hashCode [a]
    (-> (hash-combine :BandRegion) (hash-combine m) (hash-combine n) (hash-combine kl) (hash-combine ku)))
  (equals [a b]
    (or (identical? a b)
        (and (instance? BandRegion b)

     :capacity (.capacity s)})
  Object
  (hashCode [a]
    (-> (hash :TopPackedStorage) (hash-combine n)))
  (equals [a b]
    (or (identical? a b)
        (and (instance? TopPackedStorage b) (= n (.n ^TopPackedStorage b)))))
