diff --git a/include/alisp/tag.h b/include/alisp/tag.h
index 10a58f2..5f8766c 100644
--- a/include/alisp/tag.h
+++ b/include/alisp/tag.h
@@ -46,11 +46,11 @@ enum Mask
 #define INT_MAX ((1L << 62) - 1)
 #define INT_MIN (-(1L << 62))
 
-tag_t get_tag(lisp_t *);
-lisp_t *tag_int(i64);
-lisp_t *tag_sym(char *);
-lisp_t *tag_cons(cons_t *);
-lisp_t *tag_vec(vec_t *);
+tag_t get_tag(const lisp_t *);
+lisp_t *tag_int(const i64);
+lisp_t *tag_sym(const char *);
+lisp_t *tag_cons(const cons_t *);
+lisp_t *tag_vec(const vec_t *);
 
 #endif
 
diff --git a/src/tag.c b/src/tag.c
index 4dc53da..b68ea3b 100644
--- a/src/tag.c
+++ b/src/tag.c
@@ -15,22 +15,22 @@ lisp_t *tag_int(i64 i)
   return TAG((u64)i, INT);
 }
 
-lisp_t *tag_sym(char *str)
+lisp_t *tag_sym(const char *str)
 {
   return TAG((u64)str, SYM);
 }
 
-lisp_t *tag_vec(vec_t *vec)
+lisp_t *tag_vec(const vec_t *vec)
 {
   return TAG((u64)vec, VEC);
 }
 
-lisp_t *tag_cons(cons_t *cons)
+lisp_t *tag_cons(const cons_t *cons)
 {
   return TAG((u64)cons, CONS);
 }
 
-tag_t get_tag(lisp_t *lisp)
+tag_t get_tag(const lisp_t *lisp)
 {
   static_assert(NUM_TAGS == 5);
   if (!lisp)