((/nonstd/workshops/1999/analysis/exercise5.lisp::find-min-rcfn-x-n (nil nil nil nil (if) nil nil) ((min-x) nil nil nil (if) nil nil) (nil nil (integerp integerp realp realp) (<= < <) nil nil (recursive-call recursive-call)) ((i n i n a eps eps a n eps a min-x n eps) (0) (rcfn rcfn 1+ 1+) (+) nil nil nil) ((min-x a i i) nil nil (+ *) nil nil nil) ((a i eps) nil nil (*) nil nil nil) ((i eps) nil nil nil nil nil nil)))