This is the mail archive of the kawa@sourceware.org mailing list for the Kawa project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: GSOC | Extending Common Lisp support


On Jun 6, 2012, at 4:29 AM, Charles Turner wrote:

On 5 June 2012 22:35, Jamison Hope <jrh@theptrgroup.com> wrote:
Still confused though.

Indeed, I couldn't sleep, so I ended up spending all of my last night puzzling over this. I think it's best for me to leave it for the time being and get some other work done, maybe having a crack at writing LOOP in Java, as that seems to be the recommended strategy for the time being. Hopefully when I approach this FLET business with a fresh perspective, the bug will present itself!

I'll continue to poke around with The Bug a little more, looking for where these two diverge:

; This is erroneous.
(define (foo) 'a)
(define x foo)
(let ((x (lambda () 'b))) (display (x)) (display x) (display (foo)))
(newline)
;; Output: b #<procedure x> b


; This is correct.
(define (foo) 'a)
(define y foo)
(let ((x (lambda () 'b))) (display (x)) (display x) (display (foo)))
(newline)
;; Output: b #<procedure x> a


Good luck to us both!


Kind regards,
Charles.

-- Jamison Hope The PTR Group www.theptrgroup.com




Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]