diff options
| author | Daniel Santos <dacs.git@brilhante.top> | 2023-01-11 20:30:02 +0000 |
|---|---|---|
| committer | Daniel Santos <dacs.git@brilhante.top> | 2023-01-12 12:14:40 +0000 |
| commit | 66847eec93cf804b3cba06344459fe598284552c (patch) | |
| tree | 5f2e68817504641dbdf1711314fc84d28bc60e89 | |
| parent | 9cf72e3f82ca7c4bbb28fbd8168f62a5e896e415 (diff) | |
| download | cl-math-66847eec93cf804b3cba06344459fe598284552c.tar.gz | |
write-to-string to prin1-to-string
| -rw-r--r-- | cl-math.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cl-math.lisp b/cl-math.lisp index ff3480f..03a347d 100644 --- a/cl-math.lisp +++ b/cl-math.lisp @@ -17,7 +17,7 @@ (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 (write-to-string number) collect (intern (string letter)))) + (loop for letter across (prin1-to-string number) collect (intern (string letter)))) (defun implode-from-symbol (number) "Given a list of the symbols of a number (which can have letters), it returns the symbol of this number" |