Lisp HUG Maillist Archive

no confirm on quit?

Hi,

is there a way to turn off the confirmation dialog? On Mac OS X, I 
cannot shutdown my notebook with LispWorks running without manually 
confirming it.

David


Re: no confirm on quit?

David Tolpin <dvd@davidashen.net> writes:

> is there a way to turn off the confirmation dialog? On Mac OS X, I
> cannot shutdown my notebook with LispWorks running without manually
> confirming it.

I'm also mildly annoyed by this, but only /mildly/, since rebooting
or shutting down is something I only do when a system update requires
a reboot.
-- 
  (espen)


Re: no confirm on quit?

Unable to parse email body. Email id is 3861

Re: no confirm on quit?

On Thu, 19 May 2005 13:32:09 +0500, David Tolpin <dvd@davidashen.net> wrote:

> is there a way to turn off the confirmation dialog? On Mac OS X, I
> cannot shutdown my notebook with LispWorks running without manually
> confirming it.

You could create your own image with this script (untested):

  (lw:load-all-patches)

  (lw:defadvice (lw:quit no-confirmation :around)
      (&key (status 0) confirm ignore-errors-p return)
    (declare (ignore confirm))
    (lw:call-next-advice :status status
                         :ignore-errors-p ignore-errors-p
                         :return return))

  (hcl:save-image "my-lispworks")

  (lw:quit)

I think that should work.

Cheers,
Edi.


Re: no confirm on quit?

On Thu, 19 May 2005 09:57:49 -0400, John DeSoi <desoi@pgedit.com> wrote:

> On May 19, 2005, at 8:04 AM, Edi Weitz wrote:
>
>>  (lw:defadvice (lw:quit no-confirmation :around)
>>       (&key (status 0) confirm ignore-errors-p return)
>>     (declare (ignore confirm))
>>     (lw:call-next-advice :status status
>>                          :ignore-errors-p ignore-errors-p
>>                          :return return))
>
> This works for saved images. Thanks.
>
> It would still be nice to have something simpler that did not
> require saving an image.

Putting the DEFADVICE form in your init file maybe?

Cheers,
Edi.


Updated at: 2020-12-10 08:52 UTC