mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

Until we merge in the new code for type handling, we turn all warnings about types into notes.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-07 20:56:36 +01:00
parent 12c497b347
commit 280d509ebd
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/new-cmp/cmptype.lsp
View file

@ -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)