Hello,
I was working on a cl-opengl app recently and I noticed that my textures were
taking much longer to load than I could remember. After some investigation I
could distill the following test functions:
(defun test-1 ()
(let* ((array (make-sequence 'vector (* 512 512 3) :initial-element
On 03/09/07, Mikael Lax [EMAIL PROTECTED] wrote:
I was working on a cl-opengl app recently and I noticed that my textures
were taking much longer to load than I could remember.
(defun test-1 ()
[...]
(setf (cffi:mem-aref data 'cl-opengl-bindings:ubyte i) (aref array
i))
Luís Oliveira [EMAIL PROTECTED] writes:
I didn't do any profiling but I guess that extra overhead I described
explains the time difference. I'm not sure what's consing 700M though.
A quick profiling session reveals CHECK-FOR-TYPEDEF-CYCLES is the
culprit, because it conses a fresh hashtable
On Mon, 03 Sep 2007 18:21:43 +0100
Luis Oliveira [EMAIL PROTECTED] wrote:
Luís Oliveira [EMAIL PROTECTED] writes:
I didn't do any profiling but I guess that extra overhead I described
explains the time difference. I'm not sure what's consing 700M though.
A quick profiling session reveals