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 @@
(c1constant-value/sse val))
(only-small-values nil)
(make-c1form* 'LOCATION :type (object-type val)
(make-c1form* 'LOCATION :type `(eql ,val)
:args (add-object val)))
(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