Changeset 14307

Timestamp:

Sep 28, 2010, 10:44:41 AM (14 years ago)

Author:

R. Matthew Emerson

Message:

In typecheck macro, call nx1-typespec-for-typep with :whine nil.
This prevents a warning from getting pushed onto *nx-warnings*
as a side-effect.

File:

• trunk/source/lib/macros.lisp (modified) (1 diff)

trunk/source/lib/macros.lisp

@@ -2831 +2831 @@
          `(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)