Sat Feb 20 22:04:46 CET 2010  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * cleanup
diff -rN -u old-qt.core/src/list.lisp new-qt.core/src/list.lisp
--- old-qt.core/src/list.lisp	2014-10-30 07:24:35.000000000 +0100
+++ new-qt.core/src/list.lisp	2014-10-30 07:24:35.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)
diff -rN -u old-qt.core/src/vector.lisp new-qt.core/src/vector.lisp
--- old-qt.core/src/vector.lisp	2014-10-30 07:24:35.000000000 +0100
+++ new-qt.core/src/vector.lisp	2014-10-30 07:24:35.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)