diff options
| -rw-r--r-- | plus-inc.lisp | 4 |
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)))) |