Re: Anyone understand this?
"Yuri Davidovsky (as work at disclosure dot ie)" <[email protected]>
| Newsgroups | gmane.lisp.lispworks.general |
|---|---|
| Message-ID | <[email protected]> |
Is there a way to increment a pointer in a separate step after creation? > On 22 Jan 2025, at 20:15, David McClain <[email protected]> wrote: > > This produces 10.0 instead of 30.0. > > (let* ((arr (make-array 3 > :element-type 'double-float > :allocation :pinnable > :initial-contents '(10d0 20d0 30d0)))) > (hcl:with-pinned-objects (arr) > (fli:with-dynamic-lisp-array-pointer (parr arr :start 2 :type :double-float) > (fli:dereference parr))))