X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=remoto.lisp;fp=remoto.lisp;h=0000000000000000000000000000000000000000;hb=9ac80e4e818a034712d1138562cfad341eb6cfdc;hp=f0773e9a54f56e02e7b08b949358492fbe2b4a05;hpb=34d7fb9e3b5125539be506237fbe41854ed174bd;p=gacela.git

diff --git a/remoto.lisp b/remoto.lisp
deleted file mode 100755
index f0773e9..0000000
--- a/remoto.lisp
+++ /dev/null
@@ -1,28 +0,0 @@
-(clines "#include <pthread.h>")
-(clines "#include <time.h>")
-
-(clines "#define inheap(pp) ((char *)(pp) < heap_end)")
-(clines "static object pepe;")
-
-(defcfun "static object staticp (object array)" 0
-  "if (inheap (array->st.st_self)) return Ct;"
-  "else return Cnil;")
-
-(defcfun "static void *eval_code (void *parameter)" 0
-  "int t = time (NULL);"
-  "while (time (NULL) - t < 10);"
-  (eval pepe))
-
-(defcfun "int run_thread (object code)" 0
-  "pthread_t tid;"
-  "int ret;"
-  "pepe = code;"
-  "ret = pthread_create (&tid, NULL, eval_code, NULL);"
-  "return ret;")
-
-;(defentry eval-code (object) (void "eval_code"))
-(defentry run-thread (object) (int "run_thread"))
-(defentry staticp (object) (object "staticp"))
-
-(defun runt (code)
-  (and (staticp code) (run-thread code)))