... times. In the SBCL case the files have no setting of the optimization levels. The last ray.lisp file contains: (declaim (inline vec intersect sintersect ray-trace ray-sphere sray-sphere)) ... (declare (fixnum level n) (optimize speed (safety 0))) Ask Juho if you want to know the details of what this code does but it looks quite self-explanatory (of course I ...

... = hit.t==inf ? 0. : -hit.n.dot(light); #ifdef GIMME_SHADOWS if (diffuse <= 0.) return 0.; const ray_t sray(ray.o+(ray.d*hit.t)+(hit.n*epsilon),-light); hit_t shit; scene->intersect<true>(sray,shit);// trace shadow - return shit.t==infinity ? diffuse : 0.; + return shit.t==inf ? diffuse : 0.; #else return ...