From 3d333f46096e20f6f38ab128d31c001a72c14ae3 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Sat, 20 Jun 2015 18:13:10 +0200
Subject: [PATCH] Issue 4459/2: Mark print_smob (...) member functions as const

---
 lily/context-def.cc                   | 2 +-
 lily/context-mod.cc                   | 2 +-
 lily/context.cc                       | 2 +-
 lily/dispatcher.cc                    | 2 +-
 lily/duration.cc                      | 2 +-
 lily/font-metric.cc                   | 2 +-
 lily/grob-array.cc                    | 2 +-
 lily/grob-smob.cc                     | 2 +-
 lily/include/context-def.hh           | 2 +-
 lily/include/context-mod.hh           | 2 +-
 lily/include/context.hh               | 2 +-
 lily/include/dispatcher.hh            | 2 +-
 lily/include/duration.hh              | 2 +-
 lily/include/font-metric.hh           | 2 +-
 lily/include/grob-array.hh            | 4 ++--
 lily/include/grob.hh                  | 2 +-
 lily/include/input.hh                 | 2 +-
 lily/include/lily-lexer.hh            | 2 +-
 lily/include/lily-parser.hh           | 2 +-
 lily/include/moment.hh                | 2 +-
 lily/include/music-function.hh        | 6 +++---
 lily/include/music-iterator.hh        | 2 +-
 lily/include/music-output.hh          | 2 +-
 lily/include/output-def.hh            | 2 +-
 lily/include/pitch.hh                 | 2 +-
 lily/include/prob.hh                  | 2 +-
 lily/include/scm-hash.hh              | 2 +-
 lily/include/simple-closure.hh        | 2 +-
 lily/include/smobs.hh                 | 2 +-
 lily/include/smobs.tcc                | 2 +-
 lily/include/source-file.hh           | 2 +-
 lily/include/translator-group.hh      | 2 +-
 lily/include/translator.hh            | 2 +-
 lily/include/unpure-pure-container.hh | 2 +-
 lily/input-smob.cc                    | 2 +-
 lily/lily-lexer.cc                    | 2 +-
 lily/lily-parser.cc                   | 2 +-
 lily/moment.cc                        | 2 +-
 lily/music-function.cc                | 2 +-
 lily/music-iterator.cc                | 2 +-
 lily/music-output.cc                  | 2 +-
 lily/output-def.cc                    | 2 +-
 lily/pitch.cc                         | 2 +-
 lily/prob.cc                          | 2 +-
 lily/scm-hash.cc                      | 2 +-
 lily/simple-closure.cc                | 2 +-
 lily/source-file.cc                   | 2 +-
 lily/translator-group.cc              | 2 +-
 lily/translator.cc                    | 2 +-
 lily/undead.cc                        | 4 ++--
 lily/unpure-pure-container.cc         | 2 +-
 51 files changed, 55 insertions(+), 55 deletions(-)

diff --git a/lily/context-def.cc b/lily/context-def.cc
index 6289596603..3258297b49 100644
--- a/lily/context-def.cc
+++ b/lily/context-def.cc
@@ -85,7 +85,7 @@ Context_def::~Context_def ()
 const char Context_def::type_p_name_[] = "ly:context-def?";
 
 int
-Context_def::print_smob (SCM port, scm_print_state *)
+Context_def::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Context_def ", port);
   scm_display (context_name_, port);
diff --git a/lily/context-mod.cc b/lily/context-mod.cc
index c45e4f4d1a..a533da2cbd 100644
--- a/lily/context-mod.cc
+++ b/lily/context-mod.cc
@@ -37,7 +37,7 @@ Context_mod::Context_mod (SCM mod_list)
 const char Context_mod::type_p_name_[] = "ly:context-mod?";
 
 int
-Context_mod::print_smob (SCM port, scm_print_state *)
+Context_mod::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Context_mod ", port);
   scm_display (get_mods (), port);
diff --git a/lily/context.cc b/lily/context.cc
index da92c0748c..416a5ccbcf 100644
--- a/lily/context.cc
+++ b/lily/context.cc
@@ -692,7 +692,7 @@ Context::now_mom () const
 }
 
 int
-Context::print_smob (SCM port, scm_print_state *)
+Context::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<", port);
   scm_puts (class_name (), port);
diff --git a/lily/dispatcher.cc b/lily/dispatcher.cc
index 1cb7dfaa87..1d5c759596 100644
--- a/lily/dispatcher.cc
+++ b/lily/dispatcher.cc
@@ -49,7 +49,7 @@ Dispatcher::mark_smob () const
 }
 
 int
-Dispatcher::print_smob (SCM p, scm_print_state *)
+Dispatcher::print_smob (SCM p, scm_print_state *) const
 {
   scm_puts ("#<Dispatcher ", p);
   scm_write (scm_call_1 (ly_lily_module_constant ("hash-table->alist"),
diff --git a/lily/duration.cc b/lily/duration.cc
index 4768f015b5..0b10019540 100644
--- a/lily/duration.cc
+++ b/lily/duration.cc
@@ -140,7 +140,7 @@ const char Duration::type_p_name_[] = "ly:duration?";
 
 
 int
-Duration::print_smob (SCM port, scm_print_state *)
+Duration::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Duration ", port);
   scm_display (ly_string2scm (to_string ()), port);
diff --git a/lily/font-metric.cc b/lily/font-metric.cc
index 674aef76a9..f2b6a0e147 100644
--- a/lily/font-metric.cc
+++ b/lily/font-metric.cc
@@ -102,7 +102,7 @@ Font_metric::mark_smob () const
 }
 
 int
-Font_metric::print_smob (SCM port, scm_print_state *)
+Font_metric::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<", port);
   scm_puts (class_name (), port);
diff --git a/lily/grob-array.cc b/lily/grob-array.cc
index 1cabe136ed..8fc60387bc 100644
--- a/lily/grob-array.cc
+++ b/lily/grob-array.cc
@@ -62,7 +62,7 @@ Grob_array::mark_smob () const
 }
 
 int
-Grob_array::print_smob (SCM port, scm_print_state *)
+Grob_array::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Grob_array", port);
   for (vsize i = 0; i < size (); i++)
diff --git a/lily/grob-smob.cc b/lily/grob-smob.cc
index d038f9b840..066b700a25 100644
--- a/lily/grob-smob.cc
+++ b/lily/grob-smob.cc
@@ -50,7 +50,7 @@ Grob::mark_smob () const
 }
 
 int
-Grob::print_smob (SCM port, scm_print_state *)
+Grob::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Grob ", port);
   scm_puts ((char *) name ().c_str (), port);
diff --git a/lily/include/context-def.hh b/lily/include/context-def.hh
index e8e8d3b68e..c49fee1e30 100644
--- a/lily/include/context-def.hh
+++ b/lily/include/context-def.hh
@@ -34,7 +34,7 @@
 struct Context_def : public Smob<Context_def>
 {
   SCM mark_smob () const;
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static const char type_p_name_[];
   virtual ~Context_def ();
 private:
diff --git a/lily/include/context-mod.hh b/lily/include/context-mod.hh
index cef084c87e..c9f0caa8fb 100644
--- a/lily/include/context-mod.hh
+++ b/lily/include/context-mod.hh
@@ -37,7 +37,7 @@
 struct Context_mod : public Simple_smob<Context_mod>
 {
   SCM mark_smob () const;
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static const char type_p_name_[];
 private:
   SCM mods_;
diff --git a/lily/include/context.hh b/lily/include/context.hh
index 85e2d1f44c..28e80fd2db 100644
--- a/lily/include/context.hh
+++ b/lily/include/context.hh
@@ -32,7 +32,7 @@ class Context : public Smob<Context>
 {
 public:
   SCM mark_smob () const;
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static const char type_p_name_[];
   virtual ~Context ();
 private:
diff --git a/lily/include/dispatcher.hh b/lily/include/dispatcher.hh
index a7c96f9201..f0eb30ba6d 100644
--- a/lily/include/dispatcher.hh
+++ b/lily/include/dispatcher.hh
@@ -27,7 +27,7 @@
 class Dispatcher : public Smob<Dispatcher>
 {
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   static const char type_p_name_[];
   virtual ~Dispatcher ();
diff --git a/lily/include/duration.hh b/lily/include/duration.hh
index b752e329b8..7a57cf53af 100644
--- a/lily/include/duration.hh
+++ b/lily/include/duration.hh
@@ -28,7 +28,7 @@
 struct Duration : public Simple_smob<Duration>
 {
   static SCM equal_p (SCM, SCM);
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static const char type_p_name_[];
   Duration ();
   Duration (int, int);
diff --git a/lily/include/font-metric.hh b/lily/include/font-metric.hh
index f1917b0c4a..d74c8157ca 100644
--- a/lily/include/font-metric.hh
+++ b/lily/include/font-metric.hh
@@ -33,7 +33,7 @@ typedef std::map<FT_UInt, FT_ULong> Index_to_charcode_map;
 class Font_metric : public Smob<Font_metric>
 {
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   static const char type_p_name_[];
   virtual ~Font_metric ();
diff --git a/lily/include/grob-array.hh b/lily/include/grob-array.hh
index e3631c8ea9..e3963f019d 100644
--- a/lily/include/grob-array.hh
+++ b/lily/include/grob-array.hh
@@ -27,7 +27,7 @@
 class Grob_array : public Simple_smob<Grob_array>
 {
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   static const char type_p_name_[];
 private:
@@ -41,7 +41,7 @@ public:
   void set_ordered (bool b) { ordered_ = b; }
   Item *item (vsize i);
   Spanner *spanner (vsize i);
-  Grob *grob (vsize i) { return grobs_.at (i); }
+  Grob *grob (vsize i) const { return grobs_.at (i); }
   vsize size () const { return grobs_.size (); }
   bool empty () const;
   void remove_duplicates ();
diff --git a/lily/include/grob.hh b/lily/include/grob.hh
index 5dea5a948c..819c86c287 100644
--- a/lily/include/grob.hh
+++ b/lily/include/grob.hh
@@ -30,7 +30,7 @@
 class Grob : public Smob<Grob>
 {
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   static const char type_p_name_[];
   virtual ~Grob ();
diff --git a/lily/include/input.hh b/lily/include/input.hh
index cde9b87893..7177baad0a 100644
--- a/lily/include/input.hh
+++ b/lily/include/input.hh
@@ -33,7 +33,7 @@ class Input : public Simple_smob<Input>
   Source_file *source_file_;
 public:
   static const char type_p_name_[];
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static SCM equal_p (SCM, SCM);
   SCM mark_smob () const;
   Source_file *get_source_file () const;
diff --git a/lily/include/lily-lexer.hh b/lily/include/lily-lexer.hh
index 7a4bc15de5..0e001ec187 100644
--- a/lily/include/lily-lexer.hh
+++ b/lily/include/lily-lexer.hh
@@ -34,7 +34,7 @@ void set_lexer ();
 class Lily_lexer : public Smob<Lily_lexer>, public Includable_lexer
 {
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   static const char type_p_name_[];
   virtual ~Lily_lexer ();
diff --git a/lily/include/lily-parser.hh b/lily/include/lily-parser.hh
index cb36382b3b..b08df7c7a4 100644
--- a/lily/include/lily-parser.hh
+++ b/lily/include/lily-parser.hh
@@ -34,7 +34,7 @@ class Lily_parser : public Smob<Lily_parser>
   SCM do_yyparse ();
   static SCM do_yyparse_trampoline (void *parser);
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   static const char type_p_name_[];
   virtual ~Lily_parser ();
diff --git a/lily/include/moment.hh b/lily/include/moment.hh
index 80a78fbf59..d84a992b40 100644
--- a/lily/include/moment.hh
+++ b/lily/include/moment.hh
@@ -31,7 +31,7 @@ class Moment : public Simple_smob<Moment>
 {
 public:
   static SCM equal_p (SCM, SCM);
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static const char type_p_name_[];
   Moment ();
   Moment (int m);
diff --git a/lily/include/music-function.hh b/lily/include/music-function.hh
index b0ed99732a..f2c349a3e1 100644
--- a/lily/include/music-function.hh
+++ b/lily/include/music-function.hh
@@ -28,9 +28,9 @@ class Music_function : public Smob2<Music_function>
 {
 public:
   static const char type_p_name_[];
-  int print_smob (SCM, scm_print_state *);
-  SCM get_signature () { return scm1 (); }
-  SCM get_function () { return scm2 (); }
+  int print_smob (SCM, scm_print_state *) const;
+  SCM get_signature () const { return scm1 (); }
+  SCM get_function () const { return scm2 (); }
   SCM call (SCM args);
   LY_DECLARE_SMOB_PROC (&Music_function::call, 0, 0, 1);
 };
diff --git a/lily/include/music-iterator.hh b/lily/include/music-iterator.hh
index 30f27ba894..de53608ed5 100644
--- a/lily/include/music-iterator.hh
+++ b/lily/include/music-iterator.hh
@@ -61,7 +61,7 @@
 class Music_iterator : public Smob<Music_iterator>
 {
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   static const char type_p_name_[];
   virtual ~Music_iterator ();
diff --git a/lily/include/music-output.hh b/lily/include/music-output.hh
index 3d1d25728a..dc1111b78a 100644
--- a/lily/include/music-output.hh
+++ b/lily/include/music-output.hh
@@ -29,7 +29,7 @@
 class Music_output : public Smob<Music_output>
 {
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   static const char type_p_name_[];
   virtual ~Music_output ();
diff --git a/lily/include/output-def.hh b/lily/include/output-def.hh
index 5712639cb0..5de672e67a 100644
--- a/lily/include/output-def.hh
+++ b/lily/include/output-def.hh
@@ -49,7 +49,7 @@
 class Output_def : public Smob<Output_def>
 {
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   static const char type_p_name_[];
   virtual ~Output_def ();
diff --git a/lily/include/pitch.hh b/lily/include/pitch.hh
index 3e78b79952..daade82e81 100644
--- a/lily/include/pitch.hh
+++ b/lily/include/pitch.hh
@@ -36,7 +36,7 @@ class Pitch : public Simple_smob<Pitch>
 {
 public:
   static SCM equal_p (SCM, SCM);
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   static const char type_p_name_[];
 private:
diff --git a/lily/include/prob.hh b/lily/include/prob.hh
index 1f437ac5ef..7a06e47737 100644
--- a/lily/include/prob.hh
+++ b/lily/include/prob.hh
@@ -34,7 +34,7 @@
 class Prob : public Smob<Prob>
 {
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   static SCM equal_p (SCM, SCM);
   static const char type_p_name_[];
diff --git a/lily/include/scm-hash.hh b/lily/include/scm-hash.hh
index 8a1922d3c3..f77ba50635 100644
--- a/lily/include/scm-hash.hh
+++ b/lily/include/scm-hash.hh
@@ -46,7 +46,7 @@
 class Scheme_hash_table : public Smob<Scheme_hash_table>
 {
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   virtual ~Scheme_hash_table ();
   bool try_retrieve (SCM key, SCM *val);
diff --git a/lily/include/simple-closure.hh b/lily/include/simple-closure.hh
index 8903bba1fa..49e501c80a 100644
--- a/lily/include/simple-closure.hh
+++ b/lily/include/simple-closure.hh
@@ -27,7 +27,7 @@ class Simple_closure : public Smob1<Simple_closure>
 {
 public:
   SCM expression() const { return scm1 (); }
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static const char type_p_name_[];
 };
 
diff --git a/lily/include/smobs.hh b/lily/include/smobs.hh
index c5edc4b01f..9ccaa61345 100644
--- a/lily/include/smobs.hh
+++ b/lily/include/smobs.hh
@@ -181,7 +181,7 @@ private:
   static SCM mark_trampoline (SCM); // Used for calling mark_smob
   static size_t free_smob (SCM obj);
   static SCM equal_p (SCM, SCM);
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static int print_trampoline (SCM, SCM, scm_print_state *);
   static void smob_proc_init (scm_t_bits) { };
 
diff --git a/lily/include/smobs.tcc b/lily/include/smobs.tcc
index c063da2f93..714289f47f 100644
--- a/lily/include/smobs.tcc
+++ b/lily/include/smobs.tcc
@@ -88,7 +88,7 @@ Smob_base<Super>::equal_p (SCM, SCM)
 
 template <class Super>
 int
-Smob_base<Super>::print_smob (SCM p, scm_print_state *)
+Smob_base<Super>::print_smob (SCM p, scm_print_state *) const
 {
   scm_puts ("#<", p);
   scm_puts (smob_name_.c_str (), p);
diff --git a/lily/include/source-file.hh b/lily/include/source-file.hh
index 8c67cd9be5..6686389289 100644
--- a/lily/include/source-file.hh
+++ b/lily/include/source-file.hh
@@ -38,7 +38,7 @@ using namespace std;
 class Source_file : public Smob<Source_file>
 {
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   static const char type_p_name_[];
   virtual ~Source_file ();
diff --git a/lily/include/translator-group.hh b/lily/include/translator-group.hh
index a7d3a4da1b..d90c2929de 100644
--- a/lily/include/translator-group.hh
+++ b/lily/include/translator-group.hh
@@ -51,7 +51,7 @@ class Translator_group : public Smob<Translator_group>
 {
 public:
   SCM mark_smob () const;
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static const char type_p_name_[];
   virtual ~Translator_group ();
 private:
diff --git a/lily/include/translator.hh b/lily/include/translator.hh
index 74f9ecb146..8154409efc 100644
--- a/lily/include/translator.hh
+++ b/lily/include/translator.hh
@@ -96,7 +96,7 @@ public:
   // as the timing of Engraver is exercised from within Translator
   typedef void (Translator::*Grob_info_callback) (Grob_info);
   typedef void (Translator::*Callback) (void);
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   static const char type_p_name_[];
   virtual ~Translator ();
diff --git a/lily/include/unpure-pure-container.hh b/lily/include/unpure-pure-container.hh
index 5166f590a4..92974fe8f0 100644
--- a/lily/include/unpure-pure-container.hh
+++ b/lily/include/unpure-pure-container.hh
@@ -39,7 +39,7 @@ public:
       return Smob2<Unpure_pure_container>::make_smob (a, a);
     return Smob2<Unpure_pure_container>::make_smob (a, b);
   }
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
 };
 
 #endif /* UNPURE_PURE_CONTAINER_HH */
diff --git a/lily/input-smob.cc b/lily/input-smob.cc
index 830f946612..f9de264277 100644
--- a/lily/input-smob.cc
+++ b/lily/input-smob.cc
@@ -37,7 +37,7 @@ Input::mark_smob () const
 }
 
 int
-Input::print_smob (SCM port, scm_print_state *)
+Input::print_smob (SCM port, scm_print_state *) const
 {
   string str = "#<location " + location_string () + ">";
   scm_puts (str.c_str (), port);
diff --git a/lily/lily-lexer.cc b/lily/lily-lexer.cc
index 6d4de7f7fe..467876f036 100644
--- a/lily/lily-lexer.cc
+++ b/lily/lily-lexer.cc
@@ -382,7 +382,7 @@ Lily_lexer::mark_smob () const
 }
 
 int
-Lily_lexer::print_smob (SCM port, scm_print_state *)
+Lily_lexer::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Lily_lexer ", port);
   scm_display (scopes_, port);
diff --git a/lily/lily-parser.cc b/lily/lily-parser.cc
index 54b0211d15..3188974284 100644
--- a/lily/lily-parser.cc
+++ b/lily/lily-parser.cc
@@ -84,7 +84,7 @@ Lily_parser::mark_smob () const
 }
 
 int
-Lily_parser::print_smob (SCM port, scm_print_state *)
+Lily_parser::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Lily_parser ", port);
   if (lexer_)
diff --git a/lily/moment.cc b/lily/moment.cc
index 6fbd55f498..81ab30e3ae 100644
--- a/lily/moment.cc
+++ b/lily/moment.cc
@@ -48,7 +48,7 @@ const char Moment::type_p_name_[] = "ly:moment?";
 
 
 int
-Moment::print_smob (SCM port, scm_print_state *)
+Moment::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Mom ", port);
   string str = to_string ();
diff --git a/lily/music-function.cc b/lily/music-function.cc
index da0860b9fe..d8f7d3a27c 100644
--- a/lily/music-function.cc
+++ b/lily/music-function.cc
@@ -27,7 +27,7 @@ const char Music_function::type_p_name_[] = "ly:music-function?";
 
 /* Print a textual represenation of the smob to a given port.  */
 int
-Music_function::print_smob (SCM port, scm_print_state *)
+Music_function::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Music function ", port);
   scm_write (get_function (), port);
diff --git a/lily/music-iterator.cc b/lily/music-iterator.cc
index ced7fa7952..b89e92c28e 100644
--- a/lily/music-iterator.cc
+++ b/lily/music-iterator.cc
@@ -212,7 +212,7 @@ Music_iterator::mark_smob () const
 }
 
 int
-Music_iterator::print_smob (SCM port, scm_print_state *)
+Music_iterator::print_smob (SCM port, scm_print_state *) const
 {
   char s[1000];
 
diff --git a/lily/music-output.cc b/lily/music-output.cc
index dbbf606083..7b89b853f6 100644
--- a/lily/music-output.cc
+++ b/lily/music-output.cc
@@ -49,7 +49,7 @@ Music_output::mark_smob () const
 }
 
 int
-Music_output::print_smob (SCM p, scm_print_state *)
+Music_output::print_smob (SCM p, scm_print_state *) const
 {
   scm_puts ("#<", p);
   scm_puts (class_name (), p);
diff --git a/lily/output-def.cc b/lily/output-def.cc
index 4415f83f9d..d8fdc2e49d 100644
--- a/lily/output-def.cc
+++ b/lily/output-def.cc
@@ -95,7 +95,7 @@ find_context_def (Output_def const *m, SCM name)
 }
 
 int
-Output_def::print_smob (SCM p, scm_print_state *)
+Output_def::print_smob (SCM p, scm_print_state *) const
 {
   scm_puts ("#< ", p);
   scm_puts (class_name (), p);
diff --git a/lily/pitch.cc b/lily/pitch.cc
index 7772651525..e34562fecc 100644
--- a/lily/pitch.cc
+++ b/lily/pitch.cc
@@ -227,7 +227,7 @@ Pitch::mark_smob () const
 }
 
 int
-Pitch::print_smob (SCM port, scm_print_state *)
+Pitch::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Pitch ", port);
   scm_display (ly_string2scm (to_string ()), port);
diff --git a/lily/prob.cc b/lily/prob.cc
index 3f6ba2fef1..d4ea432f03 100644
--- a/lily/prob.cc
+++ b/lily/prob.cc
@@ -124,7 +124,7 @@ Prob::mark_smob () const
 }
 
 int
-Prob::print_smob (SCM port, scm_print_state *)
+Prob::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<", port);
   scm_puts ("Prob: ", port);
diff --git a/lily/scm-hash.cc b/lily/scm-hash.cc
index a9c26c620d..08419d83dd 100644
--- a/lily/scm-hash.cc
+++ b/lily/scm-hash.cc
@@ -79,7 +79,7 @@ Scheme_hash_table::mark_smob () const
 }
 
 int
-Scheme_hash_table::print_smob (SCM p, scm_print_state *)
+Scheme_hash_table::print_smob (SCM p, scm_print_state *) const
 {
   scm_puts ("#<Scheme_hash_table  ", p);
   scm_display (hash_tab_, p);
diff --git a/lily/simple-closure.cc b/lily/simple-closure.cc
index 37759ebfab..465640eef5 100644
--- a/lily/simple-closure.cc
+++ b/lily/simple-closure.cc
@@ -114,7 +114,7 @@ LY_DEFINE (ly_eval_simple_closure, "ly:eval-simple-closure",
 }
 
 int
-Simple_closure::print_smob (SCM port, scm_print_state *)
+Simple_closure::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<simple-closure ", port);
   scm_display (expression (), port);
diff --git a/lily/source-file.cc b/lily/source-file.cc
index b06edbf0b3..5a94927a7f 100644
--- a/lily/source-file.cc
+++ b/lily/source-file.cc
@@ -371,7 +371,7 @@ Source_file::mark_smob () const
 }
 
 int
-Source_file::print_smob (SCM port, scm_print_state *)
+Source_file::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Source_file ", port);
   scm_puts (name_.c_str (), port);
diff --git a/lily/translator-group.cc b/lily/translator-group.cc
index fc1c2a8a7b..831a4790b0 100644
--- a/lily/translator-group.cc
+++ b/lily/translator-group.cc
@@ -346,7 +346,7 @@ Translator_group::~Translator_group ()
 const char Translator_group::type_p_name_[] = "ly:translator-group?";
 
 int
-Translator_group::print_smob (SCM port, scm_print_state *)
+Translator_group::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Translator_group ", port);
   scm_puts (class_name (), port);
diff --git a/lily/translator.cc b/lily/translator.cc
index 54d97c3c19..370f7771c0 100644
--- a/lily/translator.cc
+++ b/lily/translator.cc
@@ -221,7 +221,7 @@ Translator::derived_mark () const
 }
 
 int
-Translator::print_smob (SCM port, scm_print_state *)
+Translator::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Translator ", port);
   scm_puts (class_name (), port);
diff --git a/lily/undead.cc b/lily/undead.cc
index db2d6f19e0..a328c66caf 100644
--- a/lily/undead.cc
+++ b/lily/undead.cc
@@ -22,7 +22,7 @@
 class Undead : public Simple_smob<Undead>
 {
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   static const char type_p_name_[];
 private:
@@ -43,7 +43,7 @@ Undead::mark_smob () const
 }
 
 int
-Undead::print_smob (SCM port, scm_print_state *)
+Undead::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Undead ", port);
   scm_display (object (), port);
diff --git a/lily/unpure-pure-container.cc b/lily/unpure-pure-container.cc
index d5962bd028..45b7188192 100644
--- a/lily/unpure-pure-container.cc
+++ b/lily/unpure-pure-container.cc
@@ -73,7 +73,7 @@ LY_DEFINE (ly_unpure_pure_container_pure_part, "ly:unpure-pure-container-pure-pa
 }
 
 int
-Unpure_pure_container::print_smob (SCM port, scm_print_state *)
+Unpure_pure_container::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<unpure-pure-container ", port);
   scm_display (unpure_part (), port);
-- 
2.39.2