Issue 4141/1: Define inline members unsmob and is_smob for several derived classes

[lilypond.git] / lily / include / performance.hh

diff --git a/lily/include/performance.hh b/lily/include/performance.hh
index f3093f82c5060699bddb979a5aa0f7e428c735dc..2df4bb75c63e4a03311e99f87b458a0b2597fd4f 100644 (file)
--- a/lily/include/performance.hh
+++ b/lily/include/performance.hh
@@ -31,7 +31,12 @@ public:
   ~Performance ();
   DECLARE_CLASSNAME (Performance);
 
-  static Performance *unsmob (SCM);
+  static Performance *unsmob (SCM p) {
+    return dynamic_cast <Performance *> (Music_output::unsmob (p));
+  }
+  static bool is_smob (SCM p) {
+    return Music_output::is_smob (p) && unsmob (p);
+  }
 
   void add_element (Audio_element *p);
   virtual void process ();