Changeset 14306


Ignore:
Timestamp:
Sep 28, 2010, 5:42:49 PM (9 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx1.lisp

    r14235 r14306  
    1818(in-package "CCL")
    1919
    20 (defun nx1-typespec-for-typep (typespec env)
     20(defun nx1-typespec-for-typep (typespec env &key (whine t))
    2121  ;; Allow VALUES types here (or user-defined types that
    2222  ;; expand to VALUES types).  We could do a better job
     
    5252    (let* ((ctype (handler-case (values-specifier-type (nx-target-type typespec) env)
    5353                    (parse-unknown-type (c)
    54                       (nx1-whine :unknown-type-in-declaration (parse-unknown-type-specifier c))
     54                      (when whine
     55                        (nx1-whine :unknown-type-in-declaration (parse-unknown-type-specifier c)))
    5556                      *wild-type*)
    5657                    (program-error (c)
    57                       (nx1-whine :invalid-type typespec c)
     58                      (when whine
     59                        (nx1-whine :invalid-type typespec c))
    5860                      *wild-type*)))
    5961           (new (ctype-spec ctype)))
Note: See TracChangeset for help on using the changeset viewer.