Skip to content
Snippets Groups Projects
Commit da692e49 authored by ram's avatar ram
Browse files

Added error check to squelch type warning.

parent d0e927b6
No related branches found
No related tags found
No related merge requests found
......@@ -166,8 +166,9 @@
(return nil)))
(let ((info (vop-info vop)))
(not (and (eq (vop-info-move-args info) :local-call)
(>= (position-in #'tn-ref-across arg (vop-args vop)
:key #'tn-ref-tn)
(>= (or (position-in #'tn-ref-across arg (vop-args vop)
:key #'tn-ref-tn)
(error "Couldn't find REF?"))
(length (template-arg-types info))))))))
......
......@@ -47,7 +47,10 @@
((null costs)
(assert more-cost)
(values arg-p
(+ n (position-in #'tn-ref-across ref refs) 1)
(+ n
(or (position-in #'tn-ref-across ref refs)
(error "Couldn't find REF?"))
1)
t
more-cost
nil
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment