[closure-cvs] CVS closure/src/patches

[dlichteblau]

Update of /project/closure/cvsroot/closure/src/patches
In directory clnet:/tmp/cvs-serv31597/src/patches

Modified Files:
	clx-patch.lisp 
Log Message:
build fix for clisp


--- /project/closure/cvsroot/closure/src/patches/clx-patch.lisp	2005/08/25 15:14:15	1.5
+++ /project/closure/cvsroot/closure/src/patches/clx-patch.lisp	2007/07/07 15:02:53	1.6
@@ -157,7 +157,7 @@
     (let ((input nil))
       (unwind-protect 
           (progn
-            (setf input (lisp:make-pipe-input-stream "hostname"))
+            (setf input (ext:make-pipe-input-stream "hostname"))
             (ignore-errors (read-line input)))
         (when input
           (close input)))))
@@ -277,6 +277,6 @@
 #+CLISP
 (progn
   (defun process-block (whostate predicate &rest predicate-args)
-    (apply #'mp::process-wait whostate predicate predicate-args)))
+    (apply #'clim-sys:process-wait whostate predicate predicate-args)))