feat (source): add helper functions

Lorenz Lehmann

28.03.24 985d3bb91fd05bd8e95ec880e6e9fdc77aeb46e8

 sources/gen-harmonies.lisp

@@ -101,6 +101,10 @@
                                                                                    (if (funcall rule (first filter-box) harmony) harmony) harmony)))))
                                    
                                    harmonies))
                       (harmonies (remove nil (loop for harmony in (remove-duplicates harmonies :test #'equal)
                               collect (if (find -1  (mapcar (lambda (pitch range) 
                                                             (if (and (<= pitch (list-max_oml range)) (>= pitch (list-min_oml range))) pitch -1)) 
                                                           harmony ranges)) nil harmony))))
           
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

@@ -357,7 +361,4 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



(let ((a '(1)))
  (delete 1 a))