(bind-func astra_stop
(lambda (astra:AstraCtx*)
(let ((sensor (astra_sensor astra))
(reader (astra_reader astra)))
(println '[close 'reader]: (astra_reader_destroy (ref sensor)))
(println '[close 'stream]: (astra_streamset_close (ref reader)))