(no commit message)

[gacela.git] / remoto.lisp

diff --git a/remoto.lisp b/remoto.lisp
deleted file mode 100755 (executable)
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)))