[Sbcl-commits] CVS: sbcl/src/code fd-stream.lisp,1.47,1.48 seq.lisp,1.56,1.57

[Christophe R. <cr...@us...>]

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

Modified Files:
	fd-stream.lisp seq.lisp 
Log Message:
0.8.15.3:
	Well, as one-line patches go, that was pretty bad.  Fix the
	(SIGNED-BYTE N) streams problem, and additionally fix
	(SIMPLE-STRING) as a type specifier for sequence creators.


Index: fd-stream.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/fd-stream.lisp,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- fd-stream.lisp	30 Sep 2004 13:59:03 -0000	1.47
+++ fd-stream.lisp	30 Sep 2004 20:20:27 -0000	1.48
@@ -671,7 +671,7 @@
 			  do (setf result
 				   (+ (* 256 result)
 				      (sap-ref-8 sap (+ head j))))
-			  finally (return (if (logbitp result (1- i))
+			  finally (return (if (logbitp (1- i) result)
                                               (dpb result (byte i 0) -1)
                                               result))))))
 	      `(signed-byte ,i)

Index: seq.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/seq.lisp,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -d -r1.56 -r1.57
--- seq.lisp	30 Sep 2004 13:48:50 -0000	1.56
+++ seq.lisp	30 Sep 2004 20:20:27 -0000	1.57
@@ -275,8 +275,9 @@
 	    (cons (cond
 		    ((eq (car type) 'string) `(vector character ,@(cdr type)))
 		    ((eq (car type) 'simple-string)
-		     `(simple-array character ,@(when (cdr type)
-						      (list (cdr type)))))
+		     `(simple-array character ,(if (cdr type)
+						   (cdr type)
+						   '(*))))
 		    (t type)))
 	    (t type)))
 	 (type (specifier-type adjusted-type)))