Skip to content
  • gerd's avatar
    (defun foo (x) (float x 1f0)) · 18894485
    gerd authored
    	(compile 'foo)
    	(foo 0d0)
    	 => 0d0
    
    	Found by Paul Dietz with sqrt on complex numbers.
    
    	* src/compiler/float-tran.lisp (float) <deftransform>:
    	Test with single-float-p instead of floatp.
    18894485