common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Don't bother preloading the flonum table.

Browse source 
It's not necessary and potentially adds extra unused entries.
This commit is contained in:
Charles Zhang 2024-04-20 22:39:22 +02:00
parent cfa83608f5
commit c2b5f3eb2d
1 changed files with 0 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/code/cross-float.lisp
View file

@ -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