From 62c5f3e9a170e5f8799f37b3a167f19bd3741db7 Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sat, 3 Feb 2018 09:03:04 -0800 Subject: [PATCH] Add test for issue #59. --- tests/issues.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/tests/issues.lisp b/tests/issues.lisp index 01db16b3e..d0fb8bf30 100644 --- a/tests/issues.lisp +++ b/tests/issues.lisp @@ -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)))) -- GitLab