From 4e5eed53a3a56de9f01e4a1474398239eddb52bd Mon Sep 17 00:00:00 2001
From: Lorenz Lehmann <lorenz.lehmann@students.muho-mannheim.de>
Date: Mon, 12 Feb 2024 08:15:46 +0100
Subject: [PATCH] fix (sources): replace setq with let/let*
---
OM-Lead.lisp | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/OM-Lead.lisp b/OM-Lead.lisp
index 19c9a77..dca737f 100644
--- a/OM-Lead.lisp
+++ b/OM-Lead.lisp
@@ -23,7 +23,7 @@
(defvar *OMLead-files* nil)
(setf *OMLead-files* '("gen-harmonies"
- "harmon-progress"
+ "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