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.gui/src/qstring.lisp new-qt.gui/src/qstring.lisp
--- old-qt.gui/src/qstring.lisp 2014-10-18 08:46:25.000000000 +0200
+++ new-qt.gui/src/qstring.lisp 2014-10-18 08:46:25.000000000 +0200
@@ -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.gui/src/string-list.lisp new-qt.gui/src/string-list.lisp
--- old-qt.gui/src/string-list.lisp 2014-10-18 08:46:25.000000000 +0200
+++ new-qt.gui/src/string-list.lisp 2014-10-18 08:46:25.000000000 +0200
@@ -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)