"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