((/nonstd/workshops/1999/calculus/solutions/riemann-rcfn-helpers.lisp::dotprod (nil nil nil nil (if) nil nil) (nil (0) (consp) (+) nil nil nil) ((x) nil nil (* recursive-call) nil nil nil) (nil nil (car car cdr cdr) nil nil nil nil) ((x y x y) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/nonstd/workshops/1999/calculus/solutions/riemann-rcfn-helpers.lisp::map-rcfn (nil nil nil nil (if) nil nil) ((nil) nil (consp) (cons) nil nil nil) ((p) nil (rcfn recursive-call) nil nil nil nil) (nil nil (car cdr) nil nil nil nil) ((p p) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))