From f3e3b20c9bce4a635d3b7a99bc1f02e4310e516b Mon Sep 17 00:00:00 2001
From: Lorenz Lehmann <lorenz.lehmann@students.muho-mannheim.de>
Date: Mon, 12 Feb 2024 08:45:22 +0100
Subject: [PATCH] fix (sources): change operators
---
sources/gen-sequence.lisp | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/sources/gen-sequence.lisp b/sources/gen-sequence.lisp
index 716a59b..9cf5e47 100644
--- a/sources/gen-sequence.lisp
+++ b/sources/gen-sequence.lisp
@@ -156,7 +156,7 @@
collect
- (let* ((second (nconc (list first-harmony) external-list))
+ (let* ((second (append (list first-harmony) (reverse external-list)))
(first (car (last second)));6000 6700
(second (let* ((temp-base database)
@@ -671,7 +671,7 @@
- (nreverse (push second external-list))
+ (push second external-list)
(values second))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--
Gitblit v1.9.1