X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fseq.lisp;h=a2c9d661ad54fe86d85a5beae54e68fb37068909;hb=f538b5388411e980376c1b4e6ca03a1f9c0d23d7;hp=43bccfdfe12497a3bf8ff2155ed2b328dff4d611;hpb=b711554e4ce0dce883ba9e09a445c969aec0d305;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 43bccfd..a2c9d66 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -203,8 +203,6 @@
 			      ;; This seems silly, is there something better?
 			      '(integer 0 (0))))))
 
-(declaim (ftype (function (sequence index index) nil)
-		signal-bounding-indices-bad-error))
 (defun signal-bounding-indices-bad-error (sequence start end)
   (let ((length (length sequence)))
     (error 'bounding-indices-bad-error