From bd5c2c6681bfe007f8db4e0b520259916340d6a8 Mon Sep 17 00:00:00 2001
From: contrapunctus <contrapunctus@disroot.org>
Date: Mon, 18 Jul 2022 20:13:40 +0530
Subject: [PATCH] Prefix slot names with %

---
 templates | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/templates b/templates
index d834e42..b47e75b 100644
--- a/templates
+++ b/templates
@@ -23,9 +23,9 @@ lisp-mode emacs-lisp-mode inferior-emacs-lisp-mode
 
 slime-repl-mode lisp-mode
 (dc "(defclass " (p "symbol") " (" (s "superclasses") ")" n>
-    "(" "(" (p "slot" slot)
-             " :initarg :" (s slot) n>
-             " :accessor " (s slot) > ")" "))")
+    "(" "(%" (p "slot" slot)
+              " :initarg :" (s slot) n>
+              " :accessor " (s slot) > ")" "))")
 (dg "(defgeneric " p " (" ")" n>
     "(:documentation \"" (s "docstring") "\"))")
 (qq "(ql:quickload '(" (p "packages") "))")