From 6b0ca63a14191eb67c1637afa38c5046e087f07b Mon Sep 17 00:00:00 2001
From: Lorenz Lehmann <lorenz.lehmann@students.muho-mannheim.de>
Date: Mon, 08 Jan 2024 15:09:34 +0100
Subject: [PATCH] fix(examples): replace old tutorial-patches
---
sources/gen-harmonies.lisp | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/sources/gen-harmonies.lisp b/sources/gen-harmonies.lisp
index f9266d0..e04fab7 100644
--- a/sources/gen-harmonies.lisp
+++ b/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)
))
--
Gitblit v1.9.1