<html><head><meta http-equiv="Content-Type" content="text/html charset=us-ascii"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;"><br><div><div>On Sep 20, 2021, at 10:42 AM, Raymond Wiker <<a href="mailto:rwiker@gmail.com">rwiker@gmail.com</a>> wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><meta http-equiv="Content-Type" content="text/html; charset=us-ascii"><div style="word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class="">Does it make a difference if you correct the misspelling of double-float?<br class=""><div><br class=""><blockquote type="cite" class=""><div class="">On 20 Sep 2021, at 19:28 , Ron Garret <<a href="mailto:ron@flownet.com" class="">ron@flownet.com</a>> wrote:</div><br class="Apple-interchange-newline"><div class=""><meta charset="UTF-8" class=""><div style="caret-color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration: none;" class=""> (/ (the doble-float (coerce (numerator x) 'double-float))</div><br class="Apple-interchange-newline"></div></blockquote></div><br class=""></div></blockquote></div><br><div>Nope:</div><div><br></div><div><div>? (time (dotimes (i 1000000)</div><div> (let ((x (/ (random 1000000000000) (random 1000000000000))))</div><div> (coerce (the double-float</div><div> (/ (the double-float (coerce (numerator x) 'double-float))</div><div> (the double-float (coerce (denominator x) 'double-float))))</div><div> 'single-float))))</div><div>(DOTIMES (I 1000000) (LET ((X (/ (RANDOM 1000000000000) (RANDOM 1000000000000)))) (COERCE (THE DOUBLE-FLOAT (/ (THE DOUBLE-FLOAT (COERCE (NUMERATOR X) 'DOUBLE-FLOAT)) (THE DOUBLE-FLOAT (COERCE (DENOMINATOR X) 'DOUBLE-FLOAT)))) 'SINGLE-FLOAT)))</div><div>took 543,342 microseconds (0.543342 seconds) to run.</div><div> 8,019 microseconds (0.008019 seconds, 1.48%) of which was spent in GC.</div><div>During that period, and with 4 available CPU cores,</div><div> 536,305 microseconds (0.536305 seconds) were spent in user mode</div><div> 10,985 microseconds (0.010985 seconds) were spent in system mode</div><div> 64,000,000 bytes of memory allocated.</div><div> 180 minor page faults, 0 major page faults, 0 swaps.</div><div>NIL</div><div>? </div></div><div><br></div><div>(I would not have expected this to make a difference. A correct type declaration is very unlikely to slow things down.)</div><div><br></div><div>rg</div><div><br></div></body></html>