fix(sources): fix avoid-doublings

Lorenz Lehmann

30.12.23 10cb19a83dbbfc61c6152d8325294bbb63166aba

fix(sources): fix avoid-doublings

 sources/gen-harmonies.lisp

@@ -67,7 +67,7 @@
                                                                collect (mapcar #'(lambda (r p) (+ r p)) reg a))) 1) :test 'equal))

       (harmon-database (cond 
                         (avoid-doublings (remove nil (loop for a in '((1 2 3 4) (6 6 7 7) (8 8 8 8) (2 3 4 1))
                         (avoid-doublings (remove nil (loop for a in harmon-database
                                                collect (if (not (find-dups_oml a)) a nil))))
                         (t harmon-database)
                         ))