Add :import-from template

Don't add a newline
2022-07-31 10:21:45 +05:30 · 2022-07-31 10:21:27 +05:30
1 changed files with 2 additions and 1 deletions
--- a/3
+++ b/3
@ -26,7 +26,7 @@ slime-repl-mode lisp-mode
    "(" (p "s") "))")
 (s "(%" (p "slot" slot)
   " :initarg :" (s slot) n>
-   " :accessor " (s slot) n> ")")
+   " :accessor " (s slot) > ")")
 (dg "(defgeneric " p " (" ")" n>
    "(:documentation \"" (s "docstring") "\"))")
 (qq "(ql:quickload '(" (p "packages") "))")
@ -39,6 +39,7 @@ slime-repl-mode lisp-mode
 (hpo "#+(or)")
 ;; print debugging
 (pd "(format *debug-io* \"" (p "string") "\" " (p "args") ")")
+(if "(:import-from :" (s "package") " #:" (s "symbol") ")")

 sql-mode
 (ct "CREATE TABLE " (s "table") " ("
Author	SHA1	Message	Date
contrapunctus	a6aa231074	Add :import-from template	2022-07-31 10:21:45 +05:30
contrapunctus	1cc5f314c6	Don't add a newline	2022-07-31 10:21:27 +05:30