On Thu, Aug 12, 2010 at 4:54 PM, Alexander Gavrilov <angavrilov@gmail.com> wrote:
 (loop for i fixnum from 0 below (- (min (array-total-size arr1)
                                         (array-total-size arr2))
                                    3) by 4

This is the code that gets normally inlined. Can you try adding the following function to the same file and see whether it gets inlined by your modified compiler?

(defun foo (arr1 arr2)
  (declare (optimize (safety 0) (speed 3)))
  (loop for i fixnum from 0 below (- (min (array-total-size arr1)
                                          (array-total-size arr2))
                                     3) by 4
     collect (aref arr1 i)))

Juanjo

--
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com