gistfile1.clj

(def ^{:private true} empty-string "")
(def ^{:private true} single-comma ",")
(def ^{:private true} l-or-st         #"(((L|ST)=\w*)| )")
(def ^{:private true} multiple-commas #"(,{2,}|,*\z)")
(def ^{:private true} lost-commas     #"(\A,*|,*\z)")

(defn- remove-local [issuer-name]
  (reduce 
    (fn[a b] 
      (replace a (first b) (second b))) 
    [issuer-name 
     [l-or-st         empty-string]
     [multiple-commas single-comma]
     [lost-commas     empty-string]]))

(replace
  (replace
    (replace issuer-name l-or-st empty-string) 
  multiple-commas single-comma) 
lost-commas empty-string)