newlispfanclub.alh.net

Cormullion..where is your online newlisp intepreter?

Im seeking for the code of the protected-function-execute version actualy is that available?..
I lost the solution i had and i can remember you had one too.. cant find it here on the forum..

;-)

Ah, the Lambdalator is no longer online. Too much spam, not enough use...

Was this what you wanted:

cormullion wrote:Ah, the Lambdalator is no longer online. Too much spam, not enough use...

Was this what you wanted:

Code: Select all

(define (default-message) {For security reasons, this function is not available in this version of newLISP.})
(dolist (x (list {!} {$main-args} {abort} {address}
{append-file} {change-dir} {close} {command-line}
{copy-file} {cpymem} {current-line} {delete-file}
{delete-url} {destroy} {device} {directory}
{directory?} {dump} {env} {exec}  {file-info} {file?}
{fork} {get-char} {get-url} {import} {load}
{main-args} {make-dir} {net-accept} {net-close}
{net-connect} {net-error} {net-eval} {net-listen}
{net-local} {net-lookup} {net-peek} {net-peer}
{net-ping} {net-receive} {net-receive-from}
{net-receive-udp} {net-select} {net-send}
{net-send-to} {net-send-udp} {net-service}
{net-sessions} {open} {peek} {pipe} {post-url}
{process} {put-url} {read-buffer} {read-char}
{read-file} {read-key} {read-line} {real-path}
{receive} {remove-dir} {rename-file} {reset} {save}
{search} {seek} {semaphore} {send} {share} {signal}
{spawn} {sync} {symbols} {trace} {wait-pid}
{write-buffer} {write-char} {write-file}
{write} {xfer-event} {write-line})) (constant (sym x) default-message)) 

Aaaa yes it was like that indeed! Terrific code ;-) Thanks a lot...you dont mind me borrowing it ..do you ;-)

:) I'm returning it to you intact since I borrowed it from you all those years ago.

And it's good to see you back here again!