From 66847eec93cf804b3cba06344459fe598284552c Mon Sep 17 00:00:00 2001 From: Daniel Santos Date: Wed, 11 Jan 2023 20:30:02 +0000 Subject: write-to-string to prin1-to-string --- cl-math.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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" -- cgit 1.4.1-2-gfad0