Silence some type propagation messages

parent fd2848c9
......@@ -44,7 +44,8 @@
(cmpnote "Refusing to propagate ~A" name)
(values (c1form-type form) assumptions)))))
(defun p1location (form assumptions loc)
(defun p1trivial (form assumptions &rest rest)
(declare (ignore rest))
(values (c1form-type form) assumptions))
(defun p1var (form assumptions var)
......
......@@ -222,8 +222,11 @@
(ordinary . p1ordinary)
(si::fset . p1fset)
(var . p1var)
(location . p1location)
(values . p1values)
(location . p1trivial) ;; Some of these can be improved
(ffi:c-inline . p1trivial)
(function . p1trivial)
(load-time-value . p1trivial)
))
(defun make-dispatch-table (alist)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment