r8526: fix bug in C circuit

diff --git a/main.lisp b/main.lisp
index 87fec0580b5888a1e5a78600bdda04bb00bd3e20..0b7210759eed80d1db20bcbcf89a3f6a1e7da6cc 100644 (file)
--- 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
   "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
     (:r

-     `(lambda (tm) ,(/ v r)))
+     `(lambda (tm) (declare (ignore tm)) ,(/ v r)))

     (:c
      `(lambda (tm)
     (:c
      `(lambda (tm)

-       (if (zerop rm)
+       (if (zerop tm)

            ,(* v c)
          0)))
     (:l
            ,(* v c)
          0)))
     (:l