From 280d509ebd2c9a1aebcd3ec60c7d65dc2341742a Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 7 Feb 2010 20:56:36 +0100 Subject: [PATCH] Until we merge in the new code for type handling, we turn all warnings about types into notes. --- src/new-cmp/cmptype.lsp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/new-cmp/cmptype.lsp b/src/new-cmp/cmptype.lsp index 06a85a7a5..8e435a34d 100644 --- a/src/new-cmp/cmptype.lsp +++ b/src/new-cmp/cmptype.lsp @@ -138,12 +138,12 @@ ((null tag1) (setf c::*compiler-break-enable* t) ;(error "foo") - (cmpwarn "Unknown type ~S. Assuming it is T." t1) + (cmpnote "Unknown type ~S. Assuming it is T." t1) t2) (t (setf c::*compiler-break-enable* t) ;(error "foo") - (cmpwarn "Unknown type ~S. Assuming it is T." t2) + (cmpnote "Unknown type ~S. Assuming it is T." t2) t1)))) (defun-equal-cached values-type-primary-type (type) @@ -300,10 +300,10 @@ (cmpwarn "Unsupported CONS type ~S. Replacing it with T." t2) T) ((null tag1) - (cmpwarn "Unknown type ~S" t1) + (cmpnote "Unknown type ~S" t1) T) (t - (cmpwarn "Unknown type ~S" t2) + (cmpnote "Unknown type ~S" t2) T)))) (defun type>= (type1 type2)