Index: /trunk/source/compiler/nx1.lisp
===================================================================
--- /trunk/source/compiler/nx1.lisp	(revision 14305)
+++ /trunk/source/compiler/nx1.lisp	(revision 14306)
@@ -18,5 +18,5 @@
 (in-package "CCL")
 
-(defun nx1-typespec-for-typep (typespec env)
+(defun nx1-typespec-for-typep (typespec env &key (whine t))
   ;; Allow VALUES types here (or user-defined types that
   ;; expand to VALUES types).  We could do a better job
@@ -52,8 +52,10 @@
     (let* ((ctype (handler-case (values-specifier-type (nx-target-type typespec) env)
                     (parse-unknown-type (c)
-                      (nx1-whine :unknown-type-in-declaration (parse-unknown-type-specifier c))
+                      (when whine
+			(nx1-whine :unknown-type-in-declaration (parse-unknown-type-specifier c)))
                       *wild-type*)
                     (program-error (c)
-                      (nx1-whine :invalid-type typespec c)
+		      (when whine
+			(nx1-whine :invalid-type typespec c))
                       *wild-type*)))
            (new (ctype-spec ctype)))