(inst jmp :e done)
;; Indirect the next cons cell, and boost the count.
LOOP
(loadw ptr ptr cons-cdr-slot list-pointer-type)
(inst add count (fixnumize 1))
;; If we aren't done, go back for more.
(inst jmp :e done)
;; Indirect the next cons cell, and boost the count.
LOOP
(loadw ptr ptr cons-cdr-slot list-pointer-type)
(inst add count (fixnumize 1))
;; If we aren't done, go back for more.