[armedbear-cvs] r13034 - trunk/abcl/contrib/asdf-install

[Mark Evenson]

Author: mevenson
Date: Sat Nov 20 10:18:21 2010
New Revision: 13034

Log:
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.

Modified:
   trunk/abcl/contrib/asdf-install/asdf-install.asd
   trunk/abcl/contrib/asdf-install/port.lisp
   trunk/abcl/contrib/asdf-install/variables.lisp

Modified: trunk/abcl/contrib/asdf-install/asdf-install.asd
==============================================================================
--- trunk/abcl/contrib/asdf-install/asdf-install.asd	(original)
+++ trunk/abcl/contrib/asdf-install/asdf-install.asd	Sat Nov 20 10:18:21 2010
@@ -12,7 +12,7 @@
 (defsystem asdf-install
   #+:sbcl :depends-on
   #+:sbcl (sb-bsd-sockets)
-  :version "0.6.10-ABCL.0"
+  :version "0.6.10-ABCL.1"
   :author "Dan Barlow <dan at telent.net>, Edi Weitz <edi at agharta.de> and many others. See the file COPYRIGHT for more details."
   :maintainer "Gary Warren King <gwking at metabang.com>"
   :components ((:file "defpackage")

Modified: trunk/abcl/contrib/asdf-install/port.lisp
==============================================================================
--- trunk/abcl/contrib/asdf-install/port.lisp	(original)
+++ trunk/abcl/contrib/asdf-install/port.lisp	Sat Nov 20 10:18:21 2010
@@ -384,12 +384,15 @@
     (pushnew tmp *temporary-files*)
     (values (download-url-to-file url tmp) tmp)))
 
+(defun gpg-command () 
+  (find-shell-command *gpg-command*))
+
 (defun gpg-results (package signature)
   (let ((tags nil))
     (with-input-from-string
 	(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)
 	 while l

Modified: trunk/abcl/contrib/asdf-install/variables.lisp
==============================================================================
--- trunk/abcl/contrib/asdf-install/variables.lisp	(original)
+++ trunk/abcl/contrib/asdf-install/variables.lisp	Sat Nov 20 10:18:21 2010
@@ -48,7 +48,9 @@
 
 ;; 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.")
 
 (defvar *gnu-tar-program*