src/objects/method.lisp
Sun Dec 13 11:17:08 CET 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Update to the new Smoke ABI (v.3)
--- old-smoke/src/objects/method.lisp 2014-10-30 08:09:55.000000000 +0100
+++ new-smoke/src/objects/method.lisp 2014-10-30 08:09:55.000000000 +0100
@@ -181,6 +181,14 @@
"Returns T when METHOD is protected; NIL otherwise."
(/= 0 (get-method-flag method :protected)))
+(defun attribute-p (method)
+ "Returns T when METHOD accesses C++ member/static variables."
+ (/= 0 (get-method-flag method :attribute)))
+
+(defun property-p (method)
+ "Returns T when METHOD accesses a Q_PROPERTY."
+ (/= 0 (get-method-flag method :property)))
+
(defmethod const-p ((method smoke-method))
"Returns T when METHOD is a const method and NIL otherwise."
(/= 0 (get-method-flag method :const)))