parent 606eafa5
......@@ -5542,7 +5542,9 @@ We need more thought here.
(compile-operand list-form nil)
(maybe-emit-clear-values index-form list-form))
(emit 'swap)
(emit-invokevirtual +lisp-object+ "NTH" '(:int) +lisp-object+))))
(emit-invokevirtual +lisp-object+ "NTH" '(:int) +lisp-object+))
(fix-boxing representation nil) ; FIXME use derived result type
(emit-move-from-stack target representation)))
(defun p2-times (form target representation)
(case (length form)
......
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