Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1392
Modified Files:
BUGS NEWS version.lisp-expr
Log Message:
0.9.9.9:
Fix bug #399 (gwking on #lisp / paste 16110; reduced case by
NJF)
... we need to be able to derive DATA-VECTOR-REF's return type
when we have a SIMPLE-STRING, even if the array's type
isn't represented directly as an ARRAY-TYPE
Index: BUGS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/BUGS,v
retrieving revision 1.487
retrieving revision 1.488
diff -u -d -r1.487 -r1.488
--- BUGS 27 Jan 2006 20:42:19 -0000 1.487
+++ BUGS 27 Jan 2006 22:42:55 -0000 1.488
@@ -2152,18 +2152,4 @@
(c-string :deport-gen) ...) in host-c-call.lisp.
399: LOOP FOR ACROSS and full call to DATA-VECTOR-REF
- The following is a simplified version of code that Gary King posted
- to #lisp which triggers a BUG on a full call to DATA-VECTOR-REF:
-
- (defun foo (x)
- (declare (type (or (simple-array character (6))
- (simple-array character (5))) x))
- (aref x 0))
-
- The similar code:
-
- (defun foo (x)
- (declare (type (simple-array character (5)) x))
- (aref x 0))
-
- does not trigger the full call.
+ (fixed in sbcl-0.9.9.x)
Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.944
retrieving revision 1.945
diff -u -d -r1.944 -r1.945
--- NEWS 20 Jan 2006 08:34:56 -0000 1.944
+++ NEWS 27 Jan 2006 22:42:55 -0000 1.945
@@ -1,4 +1,8 @@
;;;; -*- coding: utf-8; -*-
+changes in sbcl-0.9.10 relative to sbcl-0.9.9:
+ * fixed bug #399: full call to DATA-VECTOR-REF in accesses to
+ certain complicated string types. (reported by Gary King)
+
changes in sbcl-0.9.9 relative to sbcl-0.9.8:
* new platform: experimental support for the Windows operating
system has been added. (thanks to Alastair Bridgewater)
Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.2666
retrieving revision 1.2667
diff -u -d -r1.2666 -r1.2667
--- version.lisp-expr 27 Jan 2006 20:42:20 -0000 1.2666
+++ version.lisp-expr 27 Jan 2006 22:42:55 -0000 1.2667
@@ -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.9.6"
+"0.9.9.7"
|