From 197ce0f724aa567c7401f63dc889e7861ed8c0aa Mon Sep 17 00:00:00 2001
From: Marlon Schumacher <schumacher@hfm-karlsruhe.de>
Date: Mon, 24 Feb 2025 16:12:45 +0100
Subject: [PATCH] fix: smaller fixes, comments and cleanups
---
sources/utilities.lisp | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/sources/utilities.lisp b/sources/utilities.lisp
index 765656d..4f1b16f 100644
--- a/sources/utilities.lisp
+++ b/sources/utilities.lisp
@@ -366,7 +366,7 @@
for gainitem in (cdr subgainlist) do
(unless (< gainitem -150) ;it would be better to catch 'nil' instead of a very small value (depends on float precision)
(setf substr (string+ substr (format nil ",~dp~d" channelitem gainitem))))
- finally return substr)
+ finally (return substr))
)))))
outstr))
--
Gitblit v1.9.1