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.core/src/signal-slot/translate.lisp new-qt.core/src/signal-slot/translate.lisp
--- old-qt.core/src/signal-slot/translate.lisp	2014-11-16 03:13:15.000000000 +0100
+++ new-qt.core/src/signal-slot/translate.lisp	2014-11-16 03:13:15.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)