Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • gerd's avatar
    18894485
    (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
    History
    (defun foo (x) (float x 1f0))
    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.