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

[Mark Evenson]

Author: mevenson
Date: Fri Nov 19 13:21:11 2010
New Revision: 13030

Log:
Fix compiler warning about *gpg-program* being assumed special.

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

Modified: trunk/abcl/contrib/asdf-install/port.lisp
==============================================================================
--- trunk/abcl/contrib/asdf-install/port.lisp	(original)
+++ trunk/abcl/contrib/asdf-install/port.lisp	Fri Nov 19 13:21:11 2010
@@ -1,10 +1,18 @@
 (in-package #:asdf-install)
 
-(defvar *temporary-files*)
-
+;;; 'port.lisp' is loaded before 'variables.lisp' primarily for the
+;;; definiton of GET-ENV-VAR, but still needs the following specials
+;;; which would otherwise be in 'variables.lisp'.
 (defparameter *shell-path* "/bin/sh"
   "The path to a Bourne compatible command shell in physical pathname notation.")
 
+(defvar *gpg-command* "gpg"
+  "Location of the gpg binary, if for some reason, it does not appear
+  in the default path for /bin/sh.")
+;;; End variables
+
+(defvar *temporary-files*)
+
 (eval-when (:load-toplevel :compile-toplevel :execute)
   #+:allegro
   (require :osi)

Modified: trunk/abcl/contrib/asdf-install/variables.lisp
==============================================================================
--- trunk/abcl/contrib/asdf-install/variables.lisp	(original)
+++ trunk/abcl/contrib/asdf-install/variables.lisp	Fri Nov 19 13:21:11 2010
@@ -114,9 +114,3 @@
 
 (defvar *temporary-directory* 
   (pathname-sans-name+type (user-homedir-pathname)))
-
-(defvar *gpg-command* "gpg"
-  "Location of the gpg binary, if for some reason, it does appear in
-  the default path for /bin/sh.")
-
-