Steel Bank Common Lisp

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

Modified Files:
	version.lisp-expr 
Log Message:
0.8.16:
	release, tagged as sbcl_0_8_16


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.1862
retrieving revision 1.1863
diff -u -d -r1.1862 -r1.1863
--- version.lisp-expr	22 Oct 2004 15:11:22 -0000	1.1862
+++ version.lisp-expr	25 Oct 2004 19:42:41 -0000	1.1863
@@ -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.8.15.21"
+"0.8.16"

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

Modified Files:
      Tag: character_branch
	seq.lisp 
Log Message:
0.8.13.77.character.43:
	"You'll be on your best behaviour, lad"

	Bandage for problem revealed in BIT-BASH-COPY
	... expand into a specialized function call instead.  (This
		shouldn't be particularly inefficient, I think, because
		(simple-array character (*)) elements are word-sized).


Index: seq.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/seq.lisp,v
retrieving revision 1.54
retrieving revision 1.54.10.1
diff -u -d -r1.54 -r1.54.10.1
--- seq.lisp	17 Mar 2004 20:24:16 -0000	1.54
+++ seq.lisp	25 Oct 2004 16:31:10 -0000	1.54.10.1
@@ -568,6 +568,14 @@
   (when (null source-end) (setq source-end (length source-sequence)))
   (mumble-replace-from-mumble))
 
+(defun simple-character-string-replace-from-simple-character-string*
+    (target-sequence source-sequence
+     target-start target-end source-start source-end)
+  (declare (type (simple-array character (*)) target-sequence source-sequence))
+  (when (null target-end) (setq target-end (length target-sequence)))
+  (when (null source-end) (setq source-end (length source-sequence)))
+  (mumble-replace-from-mumble))
+
 (define-sequence-traverser replace
     (sequence1 sequence2 &key start1 end1 start2 end2)
   #!+sb-doc

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

Modified Files:
      Tag: character_branch
	seqtran.lisp 
Log Message:
0.8.13.77.character.43:
	"You'll be on your best behaviour, lad"

	Bandage for problem revealed in BIT-BASH-COPY
	... expand into a specialized function call instead.  (This
		shouldn't be particularly inefficient, I think, because
		(simple-array character (*)) elements are word-sized).


Index: seqtran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/seqtran.lisp,v
retrieving revision 1.53.4.5
retrieving revision 1.53.4.6
diff -u -d -r1.53.4.5 -r1.53.4.6
--- seqtran.lisp	25 Oct 2004 13:26:03 -0000	1.53.4.5
+++ seqtran.lisp	25 Oct 2004 16:31:11 -0000	1.53.4.6
@@ -729,24 +729,8 @@
 		       ;; critical for the performance of string
 		       ;; streams.  Make this more explicit.
 		       :policy (< (max safety space) 3))
-  `(locally
-     (declare (optimize (safety 0)))
-     (bit-bash-copy string2
-		    (the index
-                         ;; FIXME: literal 32s
-			 (+ (the index (* start2 32))
-			    ,vector-data-bit-offset))
-		    string1
-		    (the index
-			 (+ (the index (* start1 32))
-			    ,vector-data-bit-offset))
-		    (the index
-			 (* (min (the index (- (or end1 (length string1))
-					       start1))
-				 (the index (- (or end2 (length string2))
-					       start2)))
-			    32)))
-     string1))
+  `(sb!impl::simple-character-string-replace-from-simple-character-string*
+    string1 string2 start1 end1 start2 end2))
 
 ;;; FIXME: this would be a valid transform for certain excluded cases:
 ;;;   * :TEST 'CHAR= or :TEST #'CHAR=

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

Modified Files:
      Tag: character_branch
	version.lisp-expr 
Log Message:
0.8.13.77.character.43:
	"You'll be on your best behaviour, lad"

	Bandage for problem revealed in BIT-BASH-COPY
	... expand into a specialized function call instead.  (This
		shouldn't be particularly inefficient, I think, because
		(simple-array character (*)) elements are word-sized).


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.1806.2.42
retrieving revision 1.1806.2.43
diff -u -d -r1.1806.2.42 -r1.1806.2.43
--- version.lisp-expr	25 Oct 2004 13:26:02 -0000	1.1806.2.42
+++ version.lisp-expr	25 Oct 2004 16:31:07 -0000	1.1806.2.43
@@ -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.8.13.77.character.42"
+"0.8.13.77.character.43"

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

Modified Files:
      Tag: character_branch
	version.lisp-expr 
Log Message:
0.8.13.77.character.42:
	"It's your turn to take the rubbish out"

	Attempt to speed up string streams and the like.
	... implement a transform for REPLACE on (known) simple character
		strings.


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.1806.2.41
retrieving revision 1.1806.2.42
diff -u -d -r1.1806.2.41 -r1.1806.2.42
--- version.lisp-expr	24 Oct 2004 20:22:17 -0000	1.1806.2.41
+++ version.lisp-expr	25 Oct 2004 13:26:02 -0000	1.1806.2.42
@@ -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.8.13.77.character.41"
+"0.8.13.77.character.42"

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

Modified Files:
      Tag: character_branch
	seqtran.lisp 
Log Message:
0.8.13.77.character.42:
	"It's your turn to take the rubbish out"

	Attempt to speed up string streams and the like.
	... implement a transform for REPLACE on (known) simple character
		strings.


Index: seqtran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/seqtran.lisp,v
retrieving revision 1.53.4.4
retrieving revision 1.53.4.5
diff -u -d -r1.53.4.4 -r1.53.4.5
--- seqtran.lisp	23 Sep 2004 11:37:04 -0000	1.53.4.4
+++ seqtran.lisp	25 Oct 2004 13:26:03 -0000	1.53.4.5
@@ -712,12 +712,13 @@
 			    sb!vm:n-byte-bits)))
      string1))
 
-#+nil
+;;; FIXME: OAOO (should be shared with above, and probably
+;;; automatically generated from SAETP).
 (deftransform replace ((string1 string2 &key (start1 0) (start2 0)
 				end1 end2)
 		       ((simple-array character (*))
-			(simple-array character (*))
-			&rest t)
+                        (simple-array character (*))
+                        &rest t)
 		       *
 		       ;; FIXME: consider replacing this policy test
 		       ;; with some tests for the STARTx and ENDx
@@ -732,18 +733,19 @@
      (declare (optimize (safety 0)))
      (bit-bash-copy string2
 		    (the index
-			 (+ (the index (* start2 sb!vm:n-word-bits))
+                         ;; FIXME: literal 32s
+			 (+ (the index (* start2 32))
 			    ,vector-data-bit-offset))
 		    string1
 		    (the index
-			 (+ (the index (* start1 sb!vm:n-word-bits))
+			 (+ (the index (* start1 32))
 			    ,vector-data-bit-offset))
 		    (the index
 			 (* (min (the index (- (or end1 (length string1))
 					       start1))
 				 (the index (- (or end2 (length string2))
 					       start2)))
-			    sb!vm:n-word-bits)))
+			    32)))
      string1))
 
 ;;; FIXME: this would be a valid transform for certain excluded cases: