1.0.8.38: Add missing quote sign.
[sbcl.git] / tests / float.pure.lisp
index a2b2c35..b179f60 100644 (file)
 
 
 (with-test (:name :nan-comparisons
-            :fails-on (or :x86-64 :sparc :mips))
+            :fails-on '(or :x86-64 :sparc :mips))
   (sb-int:with-float-traps-masked (:invalid)
     (macrolet ((test (form)
                  (let ((nform (subst '(/ 0.0 0.0) 'nan form)))