From 0aa292df08039389cebc1c7d1f2134121b9b3fdf Mon Sep 17 00:00:00 2001 From: Alexey Dejneka Date: Wed, 21 Dec 2005 13:00:49 +0000 Subject: [PATCH] 0.9.7.34: * New bug. --- BUGS | 12 ++++++++++++ doc/manual/ffi.texinfo | 2 +- src/code/foreign-load.lisp | 2 +- src/compiler/dump.lisp | 2 +- version.lisp-expr | 2 +- 5 files changed, 16 insertions(+), 4 deletions(-) diff --git a/BUGS b/BUGS index ac698a4..0a4436a 100644 --- a/BUGS +++ b/BUGS @@ -2100,3 +2100,15 @@ WORKAROUND: 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. diff --git a/doc/manual/ffi.texinfo b/doc/manual/ffi.texinfo index 73871eb..f8ffb73 100644 --- a/doc/manual/ffi.texinfo +++ b/doc/manual/ffi.texinfo @@ -359,7 +359,7 @@ array type. @code{deref} can be set with @code{setf} to assign a new value. @end defun -@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 diff --git a/src/code/foreign-load.lisp b/src/code/foreign-load.lisp index 74ce213..86016be 100644 --- a/src/code/foreign-load.lisp +++ b/src/code/foreign-load.lisp @@ -88,7 +88,7 @@ determined using the library filename. Reloading may not work as 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)) diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp index 1ad330c..24cee41 100644 --- a/src/compiler/dump.lisp +++ b/src/compiler/dump.lisp @@ -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) diff --git a/version.lisp-expr b/version.lisp-expr index 8e15fc7..7538803 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -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" -- 1.7.10.4