from Version_2_6_10-283-ge199df3 to Version_2_6_11pre
a: Version_2_6_10-283-ge199df3
b: Version_2_6_11pre

Help
Common Key Bindings:
p:previous block  n:next block  G:redisplay  q:quit
Extra Bindings for Diff blocks:
RET:visit file/line
diff --git gcl-2.6.10.orig/configure gcl-2.6.10/configure
index 031f7d7..8b6e342 100755
--- gcl-2.6.10.orig/configure
+++ gcl-2.6.10/configure
@@ -5817,14 +5817,12 @@ fi
 		if echo $MP | tr ' ' '\012' | grep libbfd.a >/dev/null; then
 		   LIBBFD="`echo $MP | tr ' ' '\012' | grep libbfd.a | $AWK '{i=split($1,A,"/");for (j=1;j<=i;j++) if (j>1 && A[j]=="..") {j--;i-=2;for (k=j;k<=i;k++) A[k]=A[k+2];j--;}} END {for (j=1;j<=i;j++) printf("%s%s",A[j],j!=i ? "/" : "")}'`"
 		else
-		   echo Guessing path to libbfd.a due to gcc bug
-		   LIBBFD="/usr/lib/libbfd.a"
+		   as_fn_error $? "cannot locate external libbfd.a" "$LINENO" 5
 		fi
 		if echo $MP | tr ' ' '\012' | grep libiberty.a >/dev/null ; then
 		   LIBIBERTY="`echo $MP | tr ' ' '\012' | grep libiberty.a | $AWK '{i=split($1,A,"/");for (j=1;j<=i;j++) if (j>1 && A[j]=="..") {j--;i-=2;for (k=j;k<=i;k++) A[k]=A[k+2];j--;}} END {for (j=1;j<=i;j++) printf("%s%s",A[j],j!=i ? "/" : "")}'`"
 		else
-		   echo Guessing path to libiberty.a due to gcc bug
-		   LIBIBERTY="/usr/lib/libiberty.a"
+		   as_fn_error $? "cannot locate external libiberty.a" "$LINENO" 5
 		fi
 		BUILD_BFD=copy_bfd
 		{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for inflate in -lz" >&5
diff --git gcl-2.6.10.orig/configure.in gcl-2.6.10/configure.in
index 65766f0..3ae4b04 100644
--- gcl-2.6.10.orig/configure.in
+++ gcl-2.6.10/configure.in
@@ -1054,14 +1054,12 @@ if test "$enable_statsysbfd" = "yes" || test "$enable_dynsysbfd" = "yes" ; then
 		if echo $MP | tr ' ' '\012' | grep libbfd.a >/dev/null; then
 		   LIBBFD="`echo $MP | tr ' ' '\012' | grep libbfd.a | $AWK '{i=split($1,A,"/");for (j=1;j<=i;j++) if (j>1 && A[[j]]=="..") {j--;i-=2;for (k=j;k<=i;k++) A[[k]]=A[[k+2]];j--;}} END {for (j=1;j<=i;j++) printf("%s%s",A[[j]],j!=i ? "/" : "")}'`"
 		else
-		   echo Guessing path to libbfd.a due to gcc bug
-		   LIBBFD="/usr/lib/libbfd.a"
+		   AC_MSG_ERROR([cannot locate external libbfd.a])
 		fi   
 		if echo $MP | tr ' ' '\012' | grep libiberty.a >/dev/null ; then
 		   LIBIBERTY="`echo $MP | tr ' ' '\012' | grep libiberty.a | $AWK '{i=split($1,A,"/");for (j=1;j<=i;j++) if (j>1 && A[[j]]=="..") {j--;i-=2;for (k=j;k<=i;k++) A[[k]]=A[[k+2]];j--;}} END {for (j=1;j<=i;j++) printf("%s%s",A[[j]],j!=i ? "/" : "")}'`"
 		else
-		   echo Guessing path to libiberty.a due to gcc bug
-		   LIBIBERTY="/usr/lib/libiberty.a"
+		   AC_MSG_ERROR([cannot locate external libiberty.a])
 		fi   
 		BUILD_BFD=copy_bfd
 		AC_CHECK_LIB(z,inflate,
diff --git gcl-2.6.10.orig/lsp/gcl_top.lsp gcl-2.6.10/lsp/gcl_top.lsp
index 7a17d79..7555361 100755
--- gcl-2.6.10.orig/lsp/gcl_top.lsp
+++ gcl-2.6.10/lsp/gcl_top.lsp
@@ -729,25 +729,19 @@ First directory is checked for first name and all extensions etc."
     (when (and s (symbol-value s))
       (list *system-directory*))))
 	 
-(defun get-temp-dir ()
- (dolist (x `(,@(wine-tmp-redirect)
-	      ,@(mapcar 'getenv '("TMPDIR" "TMP" "TEMP")) "/tmp" ""))
-   (when x
+
+(defun get-temp-dir nil
+ (dolist (x `(,@(wine-tmp-redirect) ,@(mapcar 'getenv '("TMPDIR" "TMP" "TEMP")) "/tmp" ""))
+   (when (or (stringp x) (pathnamep x))
      (let* ((x (pathname x))
-	    (x (if (pathname-name x) x 
-		 (merge-pathnames
-		  (make-pathname :directory (butlast (pathname-directory x)) 
-				 :name (car (last (pathname-directory x))))
-		  x))))
-       (when (stat x) 
-	 (return-from 
-	     get-temp-dir 
+	    (y (namestring (make-pathname :name (pathname-name x) :type (pathname-type x) :version (pathname-version x))))
+	    (y (unless (zerop (length y)) y)))
+       (when (eq :directory (car (stat x)))
+	 (return-from get-temp-dir 
 	   (namestring 
 	    (make-pathname 
 	     :device (pathname-device x)
-	     :directory (when (or (pathname-directory x) (pathname-name x))
-			  (append (pathname-directory x) (list (pathname-name x))))))))))))
-
+	     :directory (append (pathname-directory x) (list y))))))))))
 
 (defun set-up-top-level (&aux (i (argc)) tem)
   (declare (fixnum i))
