[Openmcl-cvs-notifications] r10679 - in /trunk/source/lisp-kernel: imports.s unix-calls.c

[gb at clozure.com]

Author: gb
Date: Wed Sep 10 00:08:10 2008
New Revision: 10679

Log:
lisp_pipe.

Modified:
    trunk/source/lisp-kernel/imports.s
    trunk/source/lisp-kernel/unix-calls.c

Modified: trunk/source/lisp-kernel/imports.s
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/imports.s (original)
+++ trunk/source/lisp-kernel/imports.s Wed Sep 10 00:08:10 2008
@@ -96,6 +96,7 @@
         defimport(lisp_opendir)
         defimport(lisp_readdir)
         defimport(lisp_closedir)
+        defimport(lisp_pipe)
         =

    =

         .globl C(import_ptrs_base)

Modified: trunk/source/lisp-kernel/unix-calls.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/unix-calls.c (original)
+++ trunk/source/lisp-kernel/unix-calls.c Wed Sep 10 00:08:10 2008
@@ -114,3 +114,9 @@
 {
   return closedir(dir);
 }
+
+int
+lisp_pipe(int pipefd[2])
+{
+  return pipe(pipefd);
+}