0.9.3.68:

[sbcl.git] / tests / float.impure.lisp

diff --git a/tests/float.impure.lisp b/tests/float.impure.lisp
index e32a6d9..baf2c0f 100644 (file)
--- a/tests/float.impure.lisp
+++ b/tests/float.impure.lisp
@@ -114,5 +114,11 @@
 
 (assert (= (test 1.0d0) 2.0d0))
 
+(deftype myarraytype (&optional (length '*)) 
+  `(simple-array double-float (,length)))
+(defun new-pu-label-from-pu-labels (array)
+  (setf (aref (the myarraytype array) 0) 
+        sb-ext:double-float-positive-infinity))
+
 ;;; success
 (quit :unix-status 104)