Prefix slot names with %

This commit is contained in:
contrapunctus 2022-07-18 20:13:40 +05:30
parent 56ffef857f
commit bd5c2c6681
1 changed files with 3 additions and 3 deletions

View File

@ -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") "))")