[Bese-devel] Strange method combination

[Pupeno]

Hello,
I was working on a web site refactoring the presentations example when I 
noticed a very weird behaviour. When edit-from-listing was called, the 
database (using cl-sql) got updated but the listing showed the old record, so 
I started researching and I've found a very strange problem: 
edit-from-listing :after gets called before edit-from-listing finishes. I've 
added some very verbose debuging output and this is what I get:

@@@ Starting: edit-from-listing ((person-listing person-listing) (person 
person) index.
@@@@ Running: (present-object person :using person-editor).
@@@ Starting: edit-from-listing :after ((l list-presentation) item index.
@@@@ Running: (setf (instances l) (get-all-instances l).
@@@ Ending: edit-from-listing :after (...).
@@@ Ending: edit-from-listing (...).

instead of what I should really get:

@@@ Starting: edit-from-listing ((person-listing person-listing) (person 
person) index.
@@@@ Running: (present-object person :using person-editor).
@@@ Ending: edit-from-listing (...).
@@@ Starting: edit-from-listing :after ((l list-presentation) item index.
@@@@ Running: (setf (instances l) (get-all-instances l).
@@@ Ending: edit-from-listing :after (...).

Isn't this strange ? I thought that maybe it had something to do with the way 
UCW manages continuations (if not, I would be doing tests to see if it's a 
sbcl bug, because that is not what's on the common lisp specification[1]). 
Attached is a compressed tar with src/components/presentation.lisp and 
examples/presentation.lisp to show the error (it makes the debuging output 
previusly shown).
Any help is appretiated.
-- 
Pupeno <pupeno at pupeno.com> (http://pupeno.com)
Reading ? Science Fiction ? http://sfreaders.com.ar

[1] http://www.lispworks.com/documentation/HyperSpec/Body/07_ffb.htm
-------------- next part --------------
A non-text attachment was scrubbed...
Name: presents.tar.bz2
Type: application/x-tbz
Size: 8578 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20050527/b529c799/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20050527/b529c799/attachment.sig>