Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 12c497b)
Until we merge in the new code for type handling, we turn all warnings about types...
authorJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sun, 7 Feb 2010 19:56:36 +0000 (20:56 +0100)
committerJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sun, 7 Feb 2010 19:56:36 +0000 (20:56 +0100)
src/new-cmp/cmptype.lsp patch | blob | blame | history

diff --git a/src/new-cmp/cmptype.lsp b/src/new-cmp/cmptype.lsp
index 06a85a7..8e435a3 100644 (file)
--- 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)
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)