Prefix slot names with %
This commit is contained in:
parent
56ffef857f
commit
bd5c2c6681
|
@ -23,9 +23,9 @@ lisp-mode emacs-lisp-mode inferior-emacs-lisp-mode
|
||||||
|
|
||||||
slime-repl-mode lisp-mode
|
slime-repl-mode lisp-mode
|
||||||
(dc "(defclass " (p "symbol") " (" (s "superclasses") ")" n>
|
(dc "(defclass " (p "symbol") " (" (s "superclasses") ")" n>
|
||||||
"(" "(" (p "slot" slot)
|
"(" "(%" (p "slot" slot)
|
||||||
" :initarg :" (s slot) n>
|
" :initarg :" (s slot) n>
|
||||||
" :accessor " (s slot) > ")" "))")
|
" :accessor " (s slot) > ")" "))")
|
||||||
(dg "(defgeneric " p " (" ")" n>
|
(dg "(defgeneric " p " (" ")" n>
|
||||||
"(:documentation \"" (s "docstring") "\"))")
|
"(:documentation \"" (s "docstring") "\"))")
|
||||||
(qq "(ql:quickload '(" (p "packages") "))")
|
(qq "(ql:quickload '(" (p "packages") "))")
|
||||||
|
|
Loading…
Reference in New Issue