From c2b5f3eb2de8a24c40692710af0f1ea2581c4779 Mon Sep 17 00:00:00 2001 From: Charles Zhang Date: Sat, 20 Apr 2024 22:39:22 +0200 Subject: [PATCH] Don't bother preloading the flonum table. It's not necessary and potentially adds extra unused entries. --- src/code/cross-float.lisp | 8 -------- 1 file changed, 8 deletions(-) diff --git a/src/code/cross-float.lisp b/src/code/cross-float.lisp index 288ebfd0f..c060118ca 100644 --- a/src/code/cross-float.lisp +++ b/src/code/cross-float.lisp @@ -129,14 +129,6 @@ (single-float 32) (double-float 64))) -;;; Preload the interned flonum table -(dolist (format '(single-float double-float)) - (make-flonum 0 format) - (let ((sign (ash -1 (1- (float-format-bits format))))) - (make-flonum sign format)) - (make-flonum :+infinity format) - (make-flonum :-infinity format)) - (defun float-ops-cache-insert (table key values) ;; Verify results (when possible) prior to inserting into the hash-table. ;; If we were to support different floating-point formats across the various