From df601a9e72554024f0df3af7af1172da654c6105 Mon Sep 17 00:00:00 2001 From: Mark Simpson Date: Tue, 28 Nov 2023 19:30:35 -0500 Subject: [PATCH] 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. --- exercises/practice/say/.meta/example.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/exercises/practice/say/.meta/example.lisp b/exercises/practice/say/.meta/example.lisp index ac1b0def..e6f0036c 100644 --- 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)))