+ (with-open-file (out path :direction :output :if-exists :supersede
+ :if-does-not-exist :create)
+ (write-series-rlc-current-graph-stream out v r l c t-inc t-end t-start)))
+
+(defun write-series-rlc-current-graph-stream (out v r l c t-inc t-end
+ &optional (t-start 0))