gistfile1.el

(defun package-build-pkg-file (pkg-file pkg-info)
  "Write PKG-FILE containing PKG-INFO."
  (package-build-dump
   `(define-package
      ,(aref pkg-info 0)
      ,(aref pkg-info 3)
      ,(aref pkg-info 2)
      ,(mapcar
         (lambda (elt)
           (list (car elt)
                 (package-version-join (cadr elt))))
         (aref pkg-info 1)))
   pkg-file))