From 0120a789ee924e31f1dfdc3b9d199e13dfbbd378 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 14 Jan 2004 11:15:01 +0000 Subject: [PATCH] r8526: fix bug in C circuit --- main.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/main.lisp b/main.lisp index 87fec05..0b72107 100644 --- a/main.lisp +++ b/main.lisp @@ -83,12 +83,12 @@ "Returns formula for currrent through a series RLC circuit with a step-voltage applied at time 0." (ecase (circuit-type r l c) (:null - `(lambda (tm) ,v)) + `(lambda (tm) (declare (ignore tm)) ,v)) (:r - `(lambda (tm) ,(/ v r))) + `(lambda (tm) (declare (ignore tm)) ,(/ v r))) (:c `(lambda (tm) - (if (zerop rm) + (if (zerop tm) ,(* v c) 0))) (:l -- 2.34.1