(defoptimizer ir2-convert-reffer ((object) node block name offset lowtag)
(let* ((cont (node-cont node))
(locs (continuation-result-tns cont
(defoptimizer ir2-convert-reffer ((object) node block name offset lowtag)
(let* ((cont (node-cont node))
(locs (continuation-result-tns cont