compilation note -> style-warning?

Hello,

in the following code a compilation note (returning of double) triggers
also a style-warning.  Is this intended?  (I cannot see how to improve the
style...)

(catch 'trap
  (handler-bind
      ((serious-condition
        #'(lambda (condition) (throw 'trap condition)))
       (warning
        #'(lambda (condition) (throw 'trap condition))))
    (compile nil
             (lambda (x n)
               (declare (type fixnum n)
                        (type (simple-array double-float (*)) x))
               (declare (optimize (safety 0) (space 0) (debug 0) (speed 3)))
               (loop for i of-type fixnum from 0 below n
                  summing (* (aref x i) (aref x i)) of-type double-float)))))

Yours, Nicolas

-- 
PD Dr. Nicolas Neuss  University Karlsruhe  Tel: 0049-721-608-7634
Email: [email protected]
WWW: <http://www.mathematik.uni-karlsruhe.de/~neuss>