Skip to content
Snippets Groups Projects
Commit 18894485 authored by gerd's avatar gerd
Browse files

(defun foo (x) (float x 1f0))

	(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.
parent 839c702f
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment