From 985d3bb91fd05bd8e95ec880e6e9fdc77aeb46e8 Mon Sep 17 00:00:00 2001
From: Lorenz Lehmann <lorenz.lehmann@students.muho-mannheim.de>
Date: Thu, 28 Mar 2024 22:51:53 +0100
Subject: [PATCH] feat (source): add helper functions
---
OM-Lead.lisp | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/OM-Lead.lisp b/OM-Lead.lisp
index 1295c0e..dca737f 100644
--- a/OM-Lead.lisp
+++ b/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
--
Gitblit v1.9.1