Steel Bank Common Lisp

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

Modified Files:
	seqtran.lisp 
Log Message:
1.0.14.40: make deftransforms for UB<N>-BASH-COPY have consistent return type

 * Make REPLACE *CHECK-CONSISTENCY* happy: the transforms used to have
   return type (VALUES NULL &OPTIONAL), whereas the out-of-line
   definitions had return type (VALUES &OPTIONAL).


Index: seqtran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/seqtran.lisp,v
retrieving revision 1.89
retrieving revision 1.90
diff -u -d -r1.89 -r1.90
--- seqtran.lisp	20 Dec 2007 14:44:07 -0000	1.89
+++ seqtran.lisp	22 Feb 2008 16:54:48 -0000	1.90
@@ -736,7 +736,8 @@
            (do ((i end (1- i)))
                ((<= i ,src-word))
              (setf (sb!kernel:%vector-raw-bits dst (1- i))
-                   (sb!kernel:%vector-raw-bits src (1- i)))))))))
+                   (sb!kernel:%vector-raw-bits src (1- i))))
+           (values))))))
 
 #.(loop for i = 1 then (* i 2)
         collect `(deftransform ,(intern (format nil "UB~D-BASH-COPY" i)