Sat Feb 20 22:04:46 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* cleanup

--- old-qt.core/src/list.lisp 2014-10-30 06:57:57.000000000 +0100

+++ new-qt.core/src/list.lisp 2014-10-30 06:57:57.000000000 +0100

@@ -72,16 +72,16 @@

`(defun ,(symbolicate 'from-list- type-name) (list-pointer)

(declare (optimize (speed 3)))

(let ((vector (make-array (qlist-size

- list-pointer))))

+ list-pointer))))

(dotimes (index (length vector) vector)

(setf (elt vector index)

;; FIXME the returned object is not wrapped by Smoke

;; -> change this?

- (smoke:object-to-lisp

+ (object-to-lisp

(,(list-at type)

list-pointer index)

- (smoke:make-smoke-type ,(symbolicate '*smoke-module*)

- ,type-name)))))))

+ (make-smoke-type ,(symbolicate '*smoke-module*)

+ ,type-name)))))))

,@(loop for type-name in (ensure-list type-name) collect

`(define-to-lisp-translation

(,(format nil "const QList<~A>&" type-name)

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

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

@@ -93,16 +93,6 @@

(null-pointer)))

(cl-smoke-delete-qvector vector))

-(defun from-vector-point (elements)

- (make-cleanup-pointer

- (make-qvector (make-smoke-type *smoke-module* "QPoint")

- elements)

- #'free-qvector))

-

-(defun vector-point-p (sequence)

- (every #'(lambda (element) (typep element 'qt:point))

- sequence))

-

(defmacro define-qvector-translations (element-type lisp-type)

`(progn

(defun ,(symbolicate 'from-vector- element-type) (elements)