Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26277

Modified Files:
	NEWS version.lisp-expr 
Log Message:
0.9.8.44:
	Fix for (truename #p"/") (reported by tomppa on #lisp)


Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.942
retrieving revision 1.943
diff -u -d -r1.942 -r1.943
--- NEWS	16 Jan 2006 15:10:24 -0000	1.942
+++ NEWS	18 Jan 2006 12:57:46 -0000	1.943
@@ -11,6 +11,8 @@
   * bug fix: saving a core corrupted callbacks on x86/x86-64
   * bug fix: closed a loophole in metacircularity detection and
     grounding in the PCL implementation of CLOS.
+  * bug fix: TRUENAME on "/" no longer returns a relative pathname.
+    (reported by tomppa on #lisp)
   * optimization: major improvements to GC efficiency on GENCGC platforms
   * optimization: faster implementation of EQUAL
   * optimization: emit more efficient opcodes for some common 

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.2654
retrieving revision 1.2655
diff -u -d -r1.2654 -r1.2655
--- version.lisp-expr	18 Jan 2006 11:28:28 -0000	1.2654
+++ version.lisp-expr	18 Jan 2006 12:57:46 -0000	1.2655
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.8.43"
+"0.9.8.44"

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26277/src/code

Modified Files:
	unix.lisp 
Log Message:
0.9.8.44:
	Fix for (truename #p"/") (reported by tomppa on #lisp)


Index: unix.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/unix.lisp,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -d -r1.63 -r1.64
--- unix.lisp	10 Jan 2006 17:39:29 -0000	1.63
+++ unix.lisp	18 Jan 2006 12:57:48 -0000	1.64
@@ -889,8 +889,12 @@
   ;; KLUDGE: readlink and lstat are unreliable if given symlinks
   ;; ending in slashes -- fix the issue here instead of waiting for
   ;; libc to change...
+  ;;
+  ;; but be careful!  Must not strip the final slash from "/".  (This
+  ;; adjustment might be a candidate for being transferred into the C
+  ;; code in a wrap_readlink() function, too.) CSR, 2006-01-18
   (let ((len (length pathname)))
-    (when (and (plusp len) (eql #\/ (schar pathname (1- len))))
+    (when (and (> len 1) (eql #\/ (schar pathname (1- len))))
       (setf pathname (subseq pathname 0 (1- len)))))
   (/noshow "entering UNIX-RESOLVE-LINKS")
   (loop with previous-pathnames = nil do

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26277/tests

Modified Files:
	pathnames.impure.lisp 
Log Message:
0.9.8.44:
	Fix for (truename #p"/") (reported by tomppa on #lisp)


Index: pathnames.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/pathnames.impure.lisp,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- pathnames.impure.lisp	26 Aug 2005 21:09:04 -0000	1.27
+++ pathnames.impure.lisp	18 Jan 2006 12:57:48 -0000	1.28
@@ -356,5 +356,11 @@
                  (list* 'write-to-string pathname vars)
                  expected
                  actual))
+
+;;; we got (truename "/") wrong for about 6 months.  Check that it's
+;;; still right.
+(let ((pathname (truename "/")))
+  (assert (equalp pathname #p"/"))
+  (assert (equal (pathname-directory pathname) '(:absolute))))
 
 ;;;; success

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27787

Modified Files:
	CREDITS version.lisp-expr 
Log Message:
0.9.8.43:
	Commit patch from Luis Oliveira for alignment on #!+win32


Index: CREDITS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/CREDITS,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -d -r1.71 -r1.72
--- CREDITS	4 Jan 2006 14:52:29 -0000	1.71
+++ CREDITS	18 Jan 2006 11:28:28 -0000	1.72
@@ -1,3 +1,4 @@
+-*- coding: utf-8; mode: text; -*-
 
       The programmers of old were mysterious and profound.  We
    cannot fathom their thoughts, so all we do is describe their
@@ -518,6 +519,9 @@
   asdf-install, sb-bsd-sockets, sb-executable, sb-grovel and sb-posix
   contrib packages.
 
+James Bielman:
+  He assisted in work on the port to the Windows operating system.
+
 Alastair Bridgewater:
   He contributed a port of the system to the Windows operating system.
 
@@ -671,6 +675,10 @@
   He contributed to the port of SBCL to MacOS X, finding solutions for
   ABI and assembly syntax differences between Darwin and Linux.
 
+Luís Oliveira:
+  He contributed to the port of SBCL to the Windows operating system,
+  particuarly in the area of FFI.
+
 Scott Parish:
   He ported SBCL to OpenBSD-with-ELF.
 
@@ -690,7 +698,7 @@
   optimizations to compiler output, and contributed in other ways as
   well.
 
-Stig Erik Sandoe:
+Stig Erik Sandø:
   He showed how to convince the GNU toolchain to build SBCL in a way
   which supports callbacks from C code into SBCL.
 

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.2653
retrieving revision 1.2654
diff -u -d -r1.2653 -r1.2654
--- version.lisp-expr	16 Jan 2006 15:39:57 -0000	1.2653
+++ version.lisp-expr	18 Jan 2006 11:28:28 -0000	1.2654
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.8.42"
+"0.9.8.43"

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27787/src/code

Modified Files:
	host-alieneval.lisp 
Log Message:
0.9.8.43:
	Commit patch from Luis Oliveira for alignment on #!+win32


Index: host-alieneval.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/host-alieneval.lisp,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -d -r1.39 -r1.40
--- host-alieneval.lisp	4 Nov 2005 13:32:46 -0000	1.39
+++ host-alieneval.lisp	18 Jan 2006 11:28:28 -0000	1.40
@@ -22,7 +22,7 @@
 
 (defun guess-alignment (bits)
   (cond ((null bits) nil)
-        #!-(or x86 (and ppc darwin)) ((> bits 32) 64)
+        #!-(or (and x86 (not win32)) (and ppc darwin)) ((> bits 32) 64)
         ((> bits 16) 32)
         ((> bits 8) 16)
         ((> bits 1) 8)