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)))