Changeset 14306

Timestamp:

Sep 28, 2010, 10:42:49 AM (14 years ago)

Author:

R. Matthew Emerson

Message:

Add :whine keyword argument to nx1-typespec-for-typep.
Don't call nx1-whine if it's nil.

File:

• trunk/source/compiler/nx1.lisp (modified) (2 diffs)

trunk/source/compiler/nx1.lisp

@@ -18 +18 @@
 (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 +52 @@
     (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)))