From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 14 Jan 2004 11:15:01 +0000 (+0000)
Subject: r8526: fix bug in C circuit
X-Git-Tag: v0.1.3~5
X-Git-Url: http://git.kpe.io/?p=rlc.git;a=commitdiff_plain;h=0120a789ee924e31f1dfdc3b9d199e13dfbbd378

r8526: fix bug in C circuit
---

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