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/signal-slot/signal-slot.lisp 2014-10-30 07:47:14.000000000 +0100

+++ new-qt.gui/src/signal-slot/signal-slot.lisp 2014-10-30 07:47:14.000000000 +0100

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

-(in-package :qt)

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

(defclass funcallable-smoke-class (closer-mop:funcallable-standard-class

@@ -18,17 +18,17 @@

((#\0 #\1 #\2) t)

(t nil))))

-(defun qmethod (name)

+(defun qt:qmethod (name)

"Equivalent of the METHOD(a) CPP macro."

(assert (not (munged-name-p name)))

(format nil "0~A" name))

-(defun qslot (name)

+(defun qt:qslot (name)

"Equivalent of the SLOT(a) CPP macro."

(assert (not (munged-name-p name)))

(format nil "1~A" name))

-(defun qsignal (name)

+(defun qt:qsignal (name)

"Equivalent of the SIGNAL(a) CPP macro."

(assert (not (munged-name-p name)))

(format nil "2~A" name))