Steel Bank Common Lisp

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

Modified Files:
	dump.lisp 
Log Message:
0.9.7.34:
        * New bug.


Index: dump.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/dump.lisp,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -d -r1.55 -r1.56
--- dump.lisp	14 Jul 2005 18:52:38 -0000	1.55
+++ dump.lisp	21 Dec 2005 13:00:49 -0000	1.56
@@ -925,7 +925,7 @@
   (let ((code (sb!xc:char-code char)))
     (cond
       ((< code 256)
-  (dump-fop 'fop-short-character file)
+       (dump-fop 'fop-short-character file)
        (dump-byte code file))
       (t
        (dump-fop 'fop-character file)

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

Modified Files:
	BUGS version.lisp-expr 
Log Message:
0.9.7.34:
        * New bug.


Index: BUGS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/BUGS,v
retrieving revision 1.483
retrieving revision 1.484
diff -u -d -r1.483 -r1.484
--- BUGS	17 Dec 2005 22:38:17 -0000	1.483
+++ BUGS	21 Dec 2005 13:00:49 -0000	1.484
@@ -2100,3 +2100,15 @@
      instead errors.
 
      (reported on sbcl-help by "tichy")
+
+396: block-compilation bug
+    (let ((x 1))
+      (dotimes (y 10)
+        (let ((y y))
+          (when (funcall (eval #'(lambda (x) (eql x 2))) y)
+            (defun foo (z)
+              (incf x (incf y z))))))
+      (defun bar (z)
+        (foo z)
+        (values x)))
+  (bar 1) => 11, should be 4.

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.2608
retrieving revision 1.2609
diff -u -d -r1.2608 -r1.2609
--- version.lisp-expr	19 Dec 2005 10:49:33 -0000	1.2608
+++ version.lisp-expr	21 Dec 2005 13:00:49 -0000	1.2609
@@ -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.7.33"
+"0.9.7.34"

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

Modified Files:
	ffi.texinfo 
Log Message:
0.9.7.34:
        * New bug.


Index: ffi.texinfo
===================================================================
RCS file: /cvsroot/sbcl/sbcl/doc/manual/ffi.texinfo,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- ffi.texinfo	11 Oct 2005 20:21:16 -0000	1.12
+++ ffi.texinfo	21 Dec 2005 13:00:49 -0000	1.13
@@ -359,7 +359,7 @@
 value.
 @end defun
 
-@... sb-alien:slot @var{struct-or-union} &rest @var{slot-names}
+@defun sb-alien:slot @var{struct-or-union} @var{slot-name}
 @findex slot
 
 The @code{sb-alien:slot} function extracts the value of the slot named

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

Modified Files:
	foreign-load.lisp 
Log Message:
0.9.7.34:
        * New bug.


Index: foreign-load.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/foreign-load.lisp,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- foreign-load.lisp	14 Jul 2005 16:30:34 -0000	1.13
+++ foreign-load.lisp	21 Dec 2005 13:00:49 -0000	1.14
@@ -88,7 +88,7 @@
 expected if user or library-code has called dlopen on FILE.
 
 References to foreign symbols in loaded shared objects do not survive
-intact through SB-EXT:SAVE-LISP-AND die on all platforms. See
+intact through SB-EXT:SAVE-LISP-AND-DIE on all platforms. See
 SB-EXT:SAVE-LISP-AND-DIE for details."
   (sb!thread:with-mutex (*foreign-lock*)
     (let* ((filename (or (unix-namestring file) file))