Make separate template for class slots

templates

@@ -23,17 +23,22 @@ 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 "s") "))")
+(s "(%" (p "slot" slot)
+   " :initarg :" (s slot) n>
+   " :accessor " (s slot) n> ")")
 (dg "(defgeneric " p " (" ")" n>
     "(:documentation \"" (s "docstring") "\"))")
 (qq "(ql:quickload '(" (p "packages") "))")
 (up "(use-package '(" (p "package") "))")
 (ip "(in-package :" (p "package") ")")
 (l "(lambda (" (s "arguments") ") " (s "forms") ")")
+;; hash hyphen and
 (hha "#-(and)")
+;; hash plus or
 (hpo "#+(or)")
+;; print debugging
+(pd "(format *debug-io* \"" (p "string") "\" " (p "args") ")")
 
 sql-mode
 (ct "CREATE TABLE " (s "table") " ("