(when (= (lo-read ptr fd buffer length) length)
(setf result (uffi:convert-from-foreign-string
buffer :length length :null-terminated-p nil))))))
(when (= (lo-read ptr fd buffer length) length)
(setf result (uffi:convert-from-foreign-string
buffer :length length :null-terminated-p nil))))))