Added scat functionality to keywordize.

Pascal J. Bourguignon [2021-06-09 20:16]
Added scat functionality to keywordize.
Filename
common-lisp/cesarum/symbol.lisp
diff --git a/common-lisp/cesarum/symbol.lisp b/common-lisp/cesarum/symbol.lisp
index 28eb5a8..77f7b29 100644
--- a/common-lisp/cesarum/symbol.lisp
+++ b/common-lisp/cesarum/symbol.lisp
@@ -75,11 +75,12 @@ License:
                  (mapcar (function string) string-designators))))


-(defun keywordize (string-designator)
+(defun keywordize (&rst string-designator)
   "
 RETURN: A new keyword with STRING-DESIGNATOR as name.
 "
-  (intern (string string-designator)
+  (intern (apply (function concatenate) 'string
+                 (mapcar (function string) string-designators))
           (load-time-value (find-package "KEYWORD"))))

ViewGit