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	2015-09-24 02:18:23.858235161 +0200
+++ new-qt.gui/src/signal-slot/translate.lisp	2015-09-24 02:18:24.496191031 +0200
@@ -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)