Comment 2 for bug 309448

Revision history for this message
Nikodemus Siivola (nikodemus) wrote : Re: compiler performance fiasco involving type inference and UNION-TYPE

Another from Alistair Gee:

(defun euler-1 ()
 (labels ((sum-d (n)
            (let ((m (truncate 999 n)))
              (/ (* n m (1+ m)) 2))))
   (- (+ (sum-d 3)
         (sum-d 5))
      (sum-d 15))))