From 1a8732207ba7d6abe9cbd541e0f9a25fbaf02385 Mon Sep 17 00:00:00 2001
From: Robert Dodier <robert_dodier@users.sourceforge.net>
Date: Thu, 30 Jun 2022 08:56:25 -0700
Subject: [PATCH] In vector_min_max (package descriptive), suppress messages
 about converting floats to rationals.

---
 share/descriptive/descriptive_util.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/share/descriptive/descriptive_util.lisp b/share/descriptive/descriptive_util.lisp
index f1137654e..e42cdc2c8 100644
--- a/share/descriptive/descriptive_util.lisp
+++ b/share/descriptive/descriptive_util.lisp
@@ -6,7 +6,8 @@
 
 (defun $vector_min_max (a)
   (if (> (length a) 0)
-    (let ((min-a '$inf) (max-a '$minf))
+    (let ((min-a '$inf) (max-a '$minf) ($ratprint nil))
+      (declare (space $ratprint))
       (loop for x across a
             do (let ((cmp-min ($compare x min-a))
                      (cmp-max ($compare x max-a)))
-- 
2.11.4.GIT