Add explode-from-string

1 files changed, 4 insertions, 0 deletions

diff --git a/plus-inc.lisp b/plus-inc.lisp
index 6e3dc72..9ad3173 100644
--- a/plus-inc.lisp
+++ b/plus-inc.lisp
@@ -8,6 +8,10 @@
 	number
 	(reverse number)))
 
+(defun explode-from-string (string)
+  "Given a string, it returns a list of the symbol of this string"
+  (loop for letter across string collect (intern (string letter))))
+
 (defun explode-to-symbol (number)
   "Given a number (which can have letters), it returns a list of the symbols of this number"
   (loop for letter across (prin1-to-string number) collect (intern (string letter))))