remove plus with string functions

1 files changed, 0 insertions, 12 deletions

diff --git a/plus.lisp b/plus.lisp
index 03a347d..1b534b1 100644
--- a/plus.lisp
+++ b/plus.lisp
@@ -23,14 +23,6 @@
   "Given a list of the symbols of a number (which can have letters), it returns the symbol of this number"
   (intern (apply #'concatenate 'string (mapcar #'symbol-name number))))
 
-(defun explode-string (string)
-  "Given a string of a number (which can have letters), it returns a list of strings of the number"
-  (loop for letter across string collect (string letter)))
-
-(defun implode-string (string)
-  "Given a list of strings of a number (which can have letters), it returns the string of this number"
-  (apply #'concatenate 'string string))
-
 (defun next-list-number (numerals number-list)
   "Given a list of a numeral system and a list of a number, it returns a list of the next number."
   (cond
@@ -77,10 +69,6 @@
   "Given a list of a numeral system and 2 numbers, it returns the list of it's sum."
   (may-reverse (plus-args-list numerals (may-reverse (explode-to-symbol a)) (may-reverse (explode-to-symbol b)))))
 
-(defun plus-string (numerals a b)
-  "Given a list of a numeral system and 2 strings, it returns the list of it's sum."
-  (may-reverse (plus-args-list numerals (may-reverse (explode-string a)) (may-reverse (explode-string b)))))
-
 (defun symbol-to-number (symbol)
   "Given a symbol, returns it's number."
   (nth-value 0 (parse-integer (symbol-name symbol))))