Remove Ties?

[NagyMusic]

Maybe I missed it, but is there a function that removes ties, opposite to filter-tie? Thanks!

[o_e]

I wrote a function myself, not sure if it is acceptable for Janusz

hth

 

(defun remove-tie (y)
  "tests if it is a single list or a list of lists,then remove ties"
(if (car (mapcar #'listp y))
 (loop for x in y
                             
      for z = (remove 'tie x)
       for a = (remove 'tie+tie z)
      collect a) (remove 'tie+tie (remove 'tie y))))

 

Edit: I think this only removes ties between bars as I remember correctly..