Thu Apr 9 00:33:55 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Fix receiving C++ classes by value in a slot
diff -rN -u old-qt.gui/src/signal-slot/translate.lisp new-qt.gui/src/signal-slot/translate.lisp
--- old-qt.gui/src/signal-slot/translate.lisp 2014-10-30 07:44:17.000000000 +0100
+++ new-qt.gui/src/signal-slot/translate.lisp 2014-10-30 07:44:17.000000000 +0100
@@ -46,7 +46,9 @@
(defun pointer-to-lisp (pointer type)
(if (smoke::class-p type)
- (smoke::object-to-lisp (mem-ref pointer :pointer) type)
+ (if (smoke::pointer-p type)
+ (smoke::object-to-lisp (mem-ref pointer :pointer) type)
+ (smoke::object-to-lisp pointer type))
(ecase (smoke::type-id type)
(0 (let ((cffi-type (smoke::get-type (name type))))
(if (null cffi-type)