Sun Apr 5 19:56:16 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* initial import

--- old-qt.core/src/signal-slot/signal-slot.lisp 1970-01-01 01:00:00.000000000 +0100

+++ new-qt.core/src/signal-slot/signal-slot.lisp 2014-11-11 13:37:49.000000000 +0100

@@ -0,0 +1,35 @@

+(in-package :qt)

+

+

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

+ smoke::smoke-wrapper-class)

+ ())

+

+(defmethod closer-mop:validate-superclass ((class funcallable-smoke-class)

+ (superclass closer-mop:funcallable-standard-class))

+ t)

+

+(defgeneric id (method))

+

+(defun munged-name-p (name)

+ "Returns true when NAME is a METHOD, SLOT or SIGNAL."

+ (and (> (length name) 0)

+ (case (aref name 0)

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

+ (t nil))))

+

+(defun qmethod (name)

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

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

+ (format nil "0~A" name))

+

+(defun qslot (name)

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

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

+ (format nil "1~A" name))

+

+(defun qsignal (name)

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

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

+ (format nil "2~A" name))

+