From 192c0d9a0ae6cb4bdacf1eb7ec3db5596c1ec209 Mon Sep 17 00:00:00 2001 From: "v.audacity" Date: Mon, 13 Feb 2012 21:05:40 +0000 Subject: [PATCH] Fix for bug 152 per Steve Daulton's patch (plus some reformatting). --- nyquist/dspprims.lsp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/nyquist/dspprims.lsp b/nyquist/dspprims.lsp index f4a03628b..e05005fa7 100644 --- a/nyquist/dspprims.lsp +++ b/nyquist/dspprims.lsp @@ -342,9 +342,11 @@ ; convenient biquad: normalize a0, and use zero initial conditions. (defun nyq:biquad (x b0 b1 b2 a0 a1 a2) - (let ((a0r (/ 1.0 a0))) - (snd-biquad x (* a0r b0) (* a0r b1) (* a0r b2) - (* a0r a1) (* a0r a2) 0 0))) + (if (< a0 1.0) + (error (format T "a0 < 1 in biquad~%")) + (let ((a0r (/ 1.0 a0))) + (snd-biquad x (* a0r b0) (* a0r b1) (* a0r b2) + (* a0r a1) (* a0r a2) 0 0)))) (defun biquad (x b0 b1 b2 a0 a1 a2)