Commit d7b99973 authored by Nathan Froyd's avatar Nathan Froyd
Browse files

fix type declarations in generic transforms

parent 710d4734

sbcl-opt/nib-tran.lisp

+2 −2
Original line number Diff line number Diff line
@@ -38,9 +38,9 @@ 
           (/= bitsize 16))

         (generic-transform-form (fun-name arglist n-bytes

                                           setterp signedp big-endian-p)

           (let ((offset-type `(unsigned-byte 0 ,(- array-dimension-limit n-bytes))))

           (let ((offset-type `(integer 0 ,(- array-dimension-limit n-bytes))))

           `(sb-c:deftransform ,fun-name ,arglist

              `(locally (declare (type ,',offset-type) offset)

              `(locally (declare (type ,',offset-type offset))

		 ,',(if setterp

			(set-form 'vector 'offset 'value n-bytes big-endian-p)

			(ref-form 'vector 'offset n-bytes signedp big-endian-p)))))))