Changeset 13034

Timestamp:

11/20/10 15:18:21 (13 years ago)

Author:

Mark Evenson

Message:

ASDF-INSTALL now uses the path search mechanism for 'gpg'.

Expand the searched paths to a more plausible set, adding
'/usr/local/bin' and '/opt/local/bin'.

Increment ASDF-INSTALL version to 0.6.10-ABCL.1 to note recent fixes.

Location:

trunk/abcl/contrib/asdf-install

Files:

• asdf-install.asd (modified) (1 diff)
• port.lisp (modified) (2 diffs)
• variables.lisp (modified) (1 diff)

trunk/abcl/contrib/asdf-install/asdf-install.asd

@@ -13 +13 @@
   #+:sbcl :depends-on
   #+:sbcl (sb-bsd-sockets)
-  :version "0.6.10-ABCL.0"
+  :version "0.6.10-ABCL.1"
   :author "Dan Barlow <dan@telent.net>, Edi Weitz <edi@agharta.de> and many others. See the file COPYRIGHT for more details."
   :maintainer "Gary Warren King <gwking@metabang.com>"

trunk/abcl/contrib/asdf-install/port.lisp

@@ -385 +385 @@
     (values (download-url-to-file url tmp) tmp)))
 
+(defun gpg-command () 
+  (find-shell-command *gpg-command*))
+
 (defun gpg-results (package signature)
   (let ((tags nil))
@@ -390 +393 @@
   (gpg-stream 
    (shell-command (format nil "~s --status-fd 1 --verify ~s ~s"
-                                *gpg-command*
+                                (gpg-command)
         (namestring signature) (namestring package))))
       (loop for l = (read-line gpg-stream nil nil)

trunk/abcl/contrib/asdf-install/variables.lisp

@@ -49 +49 @@
 ;; bin first
 (defvar *shell-search-paths* '((:absolute "bin")
-                               (:absolute "usr" "bin"))
+                               (:absolute "usr" "bin")
+                               (:absolute "usr" "local" "bin")
+                               (:absolute "opt" "local" "bin"))
   "A list of places to look for shell commands.")