X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fproclaim.lisp;h=0a7dcb6ca937ba4b11891e3187bfe043ff5a699c;hb=2010727926b091b23a246f6f659be61e27e19667;hp=1c154ca7552ef77f8c57c1b89681551bcf5ae397;hpb=7cec182a00d4143dc7cfd43fc55c6691e356e609;p=sbcl.git

diff --git a/src/compiler/proclaim.lisp b/src/compiler/proclaim.lisp
index 1c154ca..0a7dcb6 100644
--- a/src/compiler/proclaim.lisp
+++ b/src/compiler/proclaim.lisp
@@ -48,11 +48,11 @@
 	       (compiler-warn "ignoring unknown optimization quality ~
                                ~S in ~S"
 			       quality spec))
-	      ((not (and (typep raw-value 'real) (<= 0 raw-value 3)))
+	      ((not (typep raw-value 'policy-quality))
 	       (compiler-warn "ignoring bad optimization value ~S in ~S"
 			      raw-value spec))
 	      (t
-	       (push (cons quality (rational raw-value))
+	       (push (cons quality raw-value)
 		     result)))))
     ;; Add any nonredundant entries from old POLICY.
     (dolist (old-entry policy)