Remove unnecessary comma removal, simplify boundary checking

Some older version of SBCL had commas in the result of `~R`. Since that no longer seems to be happening we can simplify the code.
exercism · Nov 29, 2023 · df601a9 · df601a9
1 parent 6960898
commit df601a9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/exercises/practice/say/.meta/example.lisp b/exercises/practice/say/.meta/example.lisp
@@ -5,5 +5,5 @@
 (in-package :say)
 
 (defun say (number)
-  (unless (or (minusp number) (>= number (expt 10 12)))
-    (remove #\, (format nil "~R" number))))
+  (when (< -1 number (expt 10 12))
+    (format nil "~r" number)))