anchor.diff:      (declare (inline *list-to-array))
       (cond ((typep tempargs 'array) 
              (let* ((len-array (length tempargs))
  -                   (copyArgs (copy-list realArgs))
  +                  (copyArgs (copy-list realArgs))
                      (temp1 (*list-to-array
                              (loop for i from 0 to (1- len-array) collect
                                   (+ (elt tempargs i) d))))
  
positive.code:         (result)
          (len-sample (length x)))
      (declare (special temp))
      (setf temp 
            (loop for i-x across X
               for i-theta across theta sum
                 (* i-x i-theta)))
  
negative.code:                                   realArgs))
                    (newArg2 (progn (setf (nth argspoint copyArgs) (- tempargs d))
                                    copyArgs)))
                `(/ (- (funcall ,func ,@newArg1)
                            (funcall ,func ,@newArg2))
                      (* 2 ,d)))))))
  
  
  