fix (sources): rule lists have the correct length

Lorenz Lehmann

12.02.24 814320124e67ff42cac90084bc873b5c594754b5

 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)
                         ))