compiler bug: letslot used in a method

Hi,

'letslot' compiled does not work when used in a method (the
code below reproduces this bug).

Ralf


(defclass A object
    ((-int-) n))

(defmethod A A (n) ((-int-) n) (setq :this:n n))

(defclass B object
    ((-int-) n))

(defmethod B B (n) ((-int-) n) (setq :this:n n))

(defmethod B printn (obj)
    ((-obj- (A)) obj)
    (letslot obj
      (printf "n=%d\n" n) ))

(dhc-make () (A A) (B B printn))

(let ((oa (new A 1))
        (ob (new B 2)))

    (==> ob printn oa))



-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642