Ignore:
Timestamp:
11/20/10 15:41:55 (11 years ago)
Author:
Mark Evenson
Message:

[backport r13034] Better resolution mechanism for 'gpg' binary.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/0.23.x/abcl/contrib/asdf-install/port.lisp

    r13037 r13038  
    385385    (values (download-url-to-file url tmp) tmp)))
    386386
     387(defun gpg-command ()
     388  (find-shell-command *gpg-command*))
     389
    387390(defun gpg-results (package signature)
    388391  (let ((tags nil))
     
    390393  (gpg-stream
    391394   (shell-command (format nil "~s --status-fd 1 --verify ~s ~s"
    392                                 *gpg-command*
     395                                (gpg-command)
    393396        (namestring signature) (namestring package))))
    394397      (loop for l = (read-line gpg-stream nil nil)
Note: See TracChangeset for help on using the changeset viewer.