Mon Jan 25 19:53:36 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Use ELT instead of AREF for sequences in vector translations.

--- old-qt.core/src/vector.lisp 2014-10-30 06:58:11.000000000 +0100

+++ new-qt.core/src/vector.lisp 2014-10-30 06:58:11.000000000 +0100

@@ -33,7 +33,7 @@

(foreign-slot-value (foreign-slot-value qvector 'qvector 'data)

'qvector-data 'size))

-(defun qvector-aref (qvector index element-type)

+(defun qvector-elt (qvector index element-type)

(pointer-to-lisp

(cffi:inc-pointer

(foreign-slot-pointer (foreign-slot-value qvector 'qvector 'data)

@@ -44,8 +44,8 @@

(defun from-qvector (qvector element-type)

(let ((result (make-array (qvector-size qvector))))

(dotimes (i (length result) result)

- (setf (aref result i)

- (qvector-aref qvector i element-type)))))

+ (setf (elt result i)

+ (qvector-elt qvector i element-type)))))

(defcfun memcpy :pointer

(destination :pointer)

@@ -64,11 +64,11 @@

(if (class-p element-type)

(dotimes (i length)

(memcpy (inc-pointer darray (* i element-size))

- (pointer (aref elements i))

+ (pointer (elt elements i))

element-size))

(dotimes (i length)

(setf (mem-aref darray (type-foreign-keyword element-type) i)

- (aref elements i))))

+ (elt elements i))))

(setf (mem-ref data :int) 1) ;; ref count

(with-foreign-slots ((ref alloc size flags)

data qvector-data)