# Pastebin XMzy80vY
(defun inq-dim (netcdf dimid)
  (cffi:with-foreign-string (sname (make-array (1+ netcdf-cffi:+max-name+) 'base-char))
    (cffi:with-foreign-object (lenp :size_t)
      (safe-nc-call (nc-c:inq-dim (id netcdf) dimid sname lenp))
      (values (cffi:foreign-string-to-lisp sname)
              (cffi:memref lenp)))))