Commit 56a914b2 authored by Marius Gerbershagen's avatar Marius Gerbershagen
Browse files

cmp: give more precise types for constant values

Improves error messages.
parent b1ea49e1
...@@ -54,7 +54,7 @@ ...@@ -54,7 +54,7 @@
(c1constant-value/sse val)) (c1constant-value/sse val))
(only-small-values nil) (only-small-values nil)
(always (always
(make-c1form* 'LOCATION :type (object-type val) (make-c1form* 'LOCATION :type `(eql ,val)
:args (add-object val))) :args (add-object val)))
(t nil))) (t nil)))
......
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