Skip to content
Snippets Groups Projects
Commit 62c5f3e9 authored by Raymond Toy's avatar Raymond Toy
Browse files

Add test for issue #59.

parent 3acdd1b7
No related branches found
No related tags found
No related merge requests found
......@@ -443,3 +443,10 @@
(write (read-from-string "`(,@vars ,@vars)")
:pretty t
:stream s)))))
(define-test issue.59
(:tag :issues)
(let ((f (compile nil #'(lambda (z)
(declare (type (double-float -2d0 0d0) z))
(nth-value 2 (decode-float z))))))
(assert-equal -1d0 (funcall f -1d0))))
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