Lisp HUG Maillist Archive

[Q] mp:schedule-timer-relative in LWW4.2

Hello,

Is the MP:SCHEDULE-TIMER-RELATIVE function disabled in the personal
edition of LWW4.2?

I tried the following and did not see anything in the Output buffer:

(defvar *timer* (mp:make-timer #'princ "ding!"))
(mp:schedule-timer-relative *timer* 60 60)

I see the entry for the PRINC callback in MP::*TIME-EVENTS-LIST*, but
as far as I can tell, it's not being called.

Then I started to wonder if it's deliberately disabled to prevent
people from trying to deal with the time limit of the Personal
edition.

Regards,

-ram


Re: [Q] mp:schedule-timer-relative in LWW4.2

Unable to parse email body. Email id is 323

Re: [Q] mp:schedule-timer-relative in LWW4.2

Unable to parse email body. Email id is 324

Re: [Q] mp:schedule-timer-relative in LWW4.2

Thanks Dave (and Nick).  Specifying the output stream was what I was
missing.

The thing that threw me off was that I first tried scheduling the
timer with MP:SCHEDULE-TIMER and it executed the PRINC right away and
sent that output, correctly, to the Output buffer; but knowing what I
know now, that was probably because the absolute time I had,
incorrectly, passed it was already well behind the current run-time,
and the timer probably never got spawned in a new thread, with the
standard output redirected.

Anyway, thanks again.

-ram

davef@xanalys.com writes:

>    Is the MP:SCHEDULE-TIMER-RELATIVE function disabled in the personal
>    edition of LWW4.2?
>
> No, like most of the base lisp functionality it's the same as in the
> Professional/Enterprise Editions.
>
>    I tried the following and did not see anything in the Output buffer:
>
>    (defvar *timer* (mp:make-timer #'princ "ding!"))
>    (mp:schedule-timer-relative *timer* 60 60)
>
>    I see the entry for the PRINC callback in MP::*TIME-EVENTS-LIST*, but
>    as far as I can tell, it's not being called.
>
> I think it is called but the output goes to *terminal-io*. Try this:
>
> CL-USER 3 > (setf ss *standard-output*)
> #<EDITOR::RUBBER-STREAM #<EDITOR:BUFFER CAPI interactive-pane 2>>
>
> CL-USER 4 > (mp:make-timer 'print 10 ss)
> #<Time Event : PRINT>
>
> CL-USER 5 > (mp:schedule-timer-relative (setf *timer* *) 1)
> #<Time Event : PRINT>
>
> 10 
> CL-USER 6 > 
>
>
> Dave Fox                                Email: davef@xanalys.com
> Xanalys Inc, Barrington Hall,             Tel:   +44 1223 873879
> Barrington, Cambridge CB2 5RG, England.   Fax:   +44 1223 873873
> These opinions are not necessarily those of Xanalys.


Updated at: 2020-12-10 09:02 UTC