nasty compiler bug

Ralf Juengling <[email protected]> Wed, 30 Sep 2009 16:18:15 -0700 (PDT)

Newsgroups	gmane.lisp.lush.devel
Message-ID	<[email protected]>

I just stumbled across the bug exhibited by the code
below. Strange that this has gone undetected for so long.

Ralf


(defclass C object
   ((-int-) count) )

(defmethod C C (i)
   (declare (-int-) i)
   (setq count i)
   ())

(defmethod C incr ()
   (incr count)
   (incr count)
   ())

(defmethod C do ()
   (let ((count0 count))
     (declare (-int-) count0)
     (==> this incr)
     (printf "%d\n" (- count count0)) )
   ())

(let ((obj (new C 1)))
   (==> obj do) )

(dhc-make ()
           (C C incr do)
           )

(let ((obj (new C 1)))
   (==> obj do) )


------------------------------------------------------------------------------
Come build with us! The BlackBerry&reg; Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay 
ahead of the curve. Join us from November 9&#45;12, 2009. Register now&#33;
http://p.sf.net/sfu/devconf