X-Git-Url: http://git.kpe.io/?p=rlc.git;a=blobdiff_plain;f=main.lisp;h=0b7210759eed80d1db20bcbcf89a3f6a1e7da6cc;hp=87fec0580b5888a1e5a78600bdda04bb00bd3e20;hb=0120a789ee924e31f1dfdc3b9d199e13dfbbd378;hpb=a55a2dd7c48c32fb5c53b2246f4ca988ddff375d

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