From russ at acceleration.net Thu Dec 11 18:14:08 2008 From: russ at acceleration.net (Russ Tyndall) Date: Thu, 11 Dec 2008 13:14:08 -0500 Subject: [Bese-devel] [Bug-Report] arnesi call/cc Message-ID: <49415870.20403@acceleration.net> I made a minor change to the call/cc code, to get it to correctly handle multiple-values. The case failing was: (let ((arnesi::*trace-cc* T) (arnesi::*debug-evaluate/cc* T)) (with-call/cc (CALL/CC (LAMBDA (K) (VALUES 1 2 3))))) To fix this I changed k-for-call/cc (apply.lisp:44), by correctly passing other-values along. The new version looks like: ;;;; APPLY and FUNCALL (defk k-for-call/cc (k) (value other-values) (if *call/cc-returns* (kontinue k value other-values) (throw 'done (values-list (cons value other-values))))) Not sure if anyone is around to commit this patch, but I thought I would pass it along in case. Hope this helps someone, Russ -------------- next part -------------- An embedded and charset-unspecified text was scrubbed... Name: call-cc-patch.darcs URL: From attila.lendvai at gmail.com Thu Dec 11 19:27:05 2008 From: attila.lendvai at gmail.com (Attila Lendvai) Date: Thu, 11 Dec 2008 20:27:05 +0100 Subject: [Bese-devel] [Bug-Report] arnesi call/cc In-Reply-To: <49415870.20403@acceleration.net> References: <49415870.20403@acceleration.net> Message-ID: > To fix this I changed k-for-call/cc (apply.lisp:44), by correctly > passing other-values along. > The new version looks like: > > ;;;; APPLY and FUNCALL > > (defk k-for-call/cc (k) > (value other-values) > (if *call/cc-returns* > (kontinue k value other-values) > (throw 'done (values-list (cons value other-values))))) pushed, thanks! -- attila ps: also pushed to cl-delico, the factored out call/cc repo From tsufiev at gmail.com Fri Dec 19 12:13:12 2008 From: tsufiev at gmail.com (Timur Sufiev) Date: Fri, 19 Dec 2008 15:13:12 +0300 Subject: [Bese-devel] arnesi logger minor fix patch Message-ID: <289a24fb0812190413v16c56c2sefdb4cf331ca18eb@mail.gmail.com> --- Timur Sufiev -------------- next part -------------- A non-text attachment was scrubbed... Name: arnesi-logger.patch Type: application/octet-stream Size: 10474 bytes Desc: not available URL: