Mon May 11 16:15:30 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Cleanup remove unnecessary smoke:: in translation code.
diff -rN -u old-qt.core/src/qstring.lisp new-qt.core/src/qstring.lisp
--- old-qt.core/src/qstring.lisp	2014-11-16 03:13:45.000000000 +0100
+++ new-qt.core/src/qstring.lisp	2014-11-16 03:13:45.000000000 +0100
@@ -58,11 +58,11 @@
   (qt-smoke-free-qstring pointer))
 
 (defun coerce-qstring (string)
-  (smoke::make-cleanup-pointer
+  (make-cleanup-pointer
    (translate-to-foreign string (make-instance 'qt::qstring))
    #'(lambda (pointer)
        (free-translated-object pointer (make-instance 'qt::qstring)
                                nil))))
 
-(smoke::define-from-lisp-translation "const QString&" string
+(define-from-lisp-translation "const QString&" string
   coerce-qstring)
diff -rN -u old-qt.core/src/string-list.lisp new-qt.core/src/string-list.lisp
--- old-qt.core/src/string-list.lisp	2014-11-16 03:13:45.000000000 +0100
+++ new-qt.core/src/string-list.lisp	2014-11-16 03:13:45.000000000 +0100
@@ -51,11 +51,11 @@
   (qt-smoke-free-string-list string-list))
 
 (defun coerce-string-list (list)
-  (smoke::make-cleanup-pointer
+  (make-cleanup-pointer
    (translate-to-foreign list (make-instance 'qt::string-list))
    #'(lambda (pointer)
        (free-translated-object pointer (make-instance 'qt::string-list)
                                nil))))
 
-(smoke::define-from-lisp-translation "const QStringList&"
+(define-from-lisp-translation "const QStringList&"
     (vector string) coerce-string-list)