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>
