Re: with-cursor

[neves@aristotle.ils.nwu.edu (Neves )]

Bill St. Clair (bill@cambridge.apple.com) wrote:
: (defmacro with-cursor (cursor &body body)
:   `(unwind-protect
:      (let ((*cursorhook* ,cursor))
:        (update-cursor)
:        ,@body)
:      (update-cursor)))
: )

I have one question about unwind-protect.  It is used to make sure a
cleanup form is executed but as it is usually used the cleanup form is
only guarateed to begin, not to finish.  Suppose someone goes cmd-.
crazy -- wouldn't the cleanup form be prevented from executing?
Should most cleanup forms have a without-interrupts wrapped around
them?