Thu Jun 11 16:59:48 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* :qt and :qt-impl packages to prevent collision with :cl symbols and fix object with non smoke parent.

--- old-qt.gui/src/string-list.lisp 2014-10-30 07:47:23.000000000 +0100

+++ new-qt.gui/src/string-list.lisp 2014-10-30 07:47:23.000000000 +0100

@@ -1,4 +1,4 @@

-(in-package :qt)

+(in-package :cl-smoke.qt-impl)

(defcfun qt-smoke-string-list-size :int

(string-list :pointer))

@@ -52,9 +52,9 @@

(defun coerce-string-list (list)

(make-cleanup-pointer

- (translate-to-foreign list (make-instance 'qt::string-list))

+ (translate-to-foreign list (make-instance 'string-list))

#'(lambda (pointer)

- (free-translated-object pointer (make-instance 'qt::string-list)

+ (free-translated-object pointer (make-instance 'string-list)

nil))))

(define-from-lisp-translation "const QStringList&"