swank.lse 458 Bytes
Newer Older
1 2 3 4
1* starts a swank server
10 afficher[/,'Saisir le port: '];lire port
12 port_ent(port);si 1024<port et port<65536 alors aller en 20
14 afficher[/,'Port ',u,' invalide.',/]port;aller en 10
5 6 7 8
20 chaine host,expr,result
25 host_'127.0.0.1'
30 result_lisp('(ql:quickload :swank)',1,0);afficher[u,/]result
35 expr_'(let ((swank::*loopback-interface* "'!host!'")) (swank:create-server :port '!cca(port)!'))'
9 10 11
40 result_lisp(expr,1,0);afficher[u,/]result
50 terminer