Index: /trunk/source/lib/macros.lisp
===================================================================
--- /trunk/source/lib/macros.lisp	(revision 14306)
+++ /trunk/source/lib/macros.lisp	(revision 14307)
@@ -2831,6 +2831,6 @@
          `(the ,typespec ,object))
         (t
-         `(require-type ,object ',(nx1-typespec-for-typep typespec env)))))
-
+         `(require-type ,object ',(nx1-typespec-for-typep typespec env
+							  :whine nil)))))
 
 (defmacro with-hash-table-iterator ((mname hash-table) &body body)