feat (sources): avoid-repetitions

Lorenz Lehmann

12.02.24 e292a63e3e70d3757d7316df3403efd81da68b26

 OM-Lead.lisp

@@ -22,8 +22,8 @@
                 :name name))

(defvar *OMLead-files* nil)
(setf *OMLead-files* '("harmon-database"
                       "harmon-progress"
(setf *OMLead-files* '("gen-harmonies"
                       "gen-sequence"
                       "get-score"
                       "harmon-rhythm"
                      ))
@@ -42,7 +42,7 @@
;--------------------------------------------------
(defvar *svppackages-list* nil)
(setf *subpackages-list* 
      '((Nil Nil Nil (omlead::harmon-database omlead::harmon-progress omlead::get-score omlead::harmon-rhythm) Nil)))
      '((Nil Nil Nil (omlead::gen-harmonies omlead::gen-sequence omlead::get-score omlead::harmon-rhythm) Nil)))

;--------------------------------------------------
;filling packages