(let* ((needed-size (c-getenv cname buffer nsizebuf))
(buffer1 (ct:malloc (1+ needed-size))))
(setf (ct:cref lpdword nsizebuf 0) needed-size)
(let* ((needed-size (c-getenv cname buffer nsizebuf))
(buffer1 (ct:malloc (1+ needed-size))))
(setf (ct:cref lpdword nsizebuf 0) needed-size)