diff --git a/tests/issues.lisp b/tests/issues.lisp index 01db16b3ebc3717c778425ce403864f46be60daf..d0fb8bf303ee2fd81a2026a6e877283f03f9fa42 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))))