X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpolicy.lisp;h=2e19378ac3a3e9d1bf8db8b5b6081b40f9a8f586;hb=45bc305be4e269d2e1a477c8e0ae9a64df1ccd1c;hp=26bf0ce604ed113e2c571c1b29dc9deaa3776301;hpb=c3c5e3bac6e4ca8e9d1c6960590d88e16254cfea;p=sbcl.git

diff --git a/src/compiler/policy.lisp b/src/compiler/policy.lisp
index 26bf0ce..2e19378 100644
--- a/src/compiler/policy.lisp
+++ b/src/compiler/policy.lisp
@@ -37,7 +37,7 @@ This is intended to be used interactively, to facilitate recompiling large
 bodies of code with eg. a known minimum safety.
 
 EXPERIMENTAL INTERFACE: Subject to change."
-  (declare (policy-quality min))
+  (declare (type policy-quality min))
   (when quality
     (aver (policy-quality-name-p quality))
     (if (zerop min)