From 53dd919e3b97fe7a63b6826d812eef6bac0ca9ad Mon Sep 17 00:00:00 2001 From: Rudi Schlatte Date: Tue, 14 Mar 2006 22:23:14 +0000 Subject: [PATCH] 0.9.10.30 Unbreak the build (thanks to Eric Marsden for the quick patch) --- src/code/run-program.lisp | 38 +++++++++++++++++++------------------- version.lisp-expr | 2 +- 2 files changed, 20 insertions(+), 20 deletions(-) diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp index 99a7597..18ad9f1 100644 --- a/src/code/run-program.lisp +++ b/src/code/run-program.lisp @@ -98,7 +98,7 @@ (rusage sb-alien:int)) (defun wait3 (&optional do-not-hang check-for-stopped) - #!+sb-doc + #+sb-doc "Return any available status information on child process. " (multiple-value-bind (pid status) (c-wait3 (logior (if do-not-hang @@ -137,7 +137,7 @@ ;;;; process control stuff (defvar *active-processes* nil - #!+sb-doc + #+sb-doc "List of process structures for all active processes.") (defvar *active-processes-lock* @@ -174,55 +174,55 @@ (process-status process))) process) -#!+sb-doc +#+sb-doc (setf (documentation 'process-p 'function) "T if OBJECT is a PROCESS, NIL otherwise.") -#!+sb-doc +#+sb-doc (setf (documentation 'process-pid 'function) "The pid of the child process.") (defun process-status (process) - #!+sb-doc + #+sb-doc "Return the current status of PROCESS. The result is one of :RUNNING, :STOPPED, :EXITED, or :SIGNALED." (get-processes-status-changes) (process-%status process)) -#!+sb-doc +#+sb-doc (setf (documentation 'process-exit-code 'function) "The exit code or the signal of a stopped process.") -#!+sb-doc +#+sb-doc (setf (documentation 'process-core-dumped 'function) "T if a core image was dumped by the process.") -#!+sb-doc +#+sb-doc (setf (documentation 'process-pty 'function) "The pty stream of the process or NIL.") -#!+sb-doc +#+sb-doc (setf (documentation 'process-input 'function) "The input stream of the process or NIL.") -#!+sb-doc +#+sb-doc (setf (documentation 'process-output 'function) "The output stream of the process or NIL.") -#!+sb-doc +#+sb-doc (setf (documentation 'process-error 'function) "The error stream of the process or NIL.") -#!+sb-doc +#+sb-doc (setf (documentation 'process-status-hook 'function) "A function that is called when PROCESS changes its status. The function is called with PROCESS as its only argument.") -#!+sb-doc +#+sb-doc (setf (documentation 'process-plist 'function) "A place for clients to stash things.") (defun process-wait (process &optional check-for-stopped) - #!+sb-doc + #+sb-doc "Wait for PROCESS to quit running for some reason. When CHECK-FOR-STOPPED is T, also returns when PROCESS is stopped. Returns PROCESS." @@ -253,7 +253,7 @@ The function is called with PROCESS as its only argument.") (process-pid proc)) (defun process-kill (process signal &optional (whom :pid)) - #!+sb-doc + #+sb-doc "Hand SIGNAL to PROCESS. If WHOM is :PID, use the kill Unix system call. If WHOM is :PROCESS-GROUP, use the killpg Unix system call. If WHOM is :PTY-PROCESS-GROUP deliver the signal to whichever process group is @@ -290,7 +290,7 @@ The function is called with PROCESS as its only argument.") t))))) (defun process-alive-p (process) - #!+sb-doc + #+sb-doc "Return T if PROCESS is still alive, NIL otherwise." (let ((status (process-status process))) (if (or (eq status :running) @@ -299,7 +299,7 @@ The function is called with PROCESS as its only argument.") nil))) (defun process-close (process) - #!+sb-doc + #+sb-doc "Close all streams connected to PROCESS and stop maintaining the status slot." (macrolet ((frob (stream abort) `(when ,stream (close ,stream :abort ,abort)))) @@ -457,7 +457,7 @@ The function is called with PROCESS as its only argument.") (defun find-executable-in-search-path (pathname &optional (search-path (posix-getenv "PATH"))) - #!+sb-doc + #+sb-doc "Find the first executable file matching PATHNAME in any of the colon-separated list of pathnames SEARCH-PATH" (loop for end = (position #\: search-path :start (if end (1+ end) 0)) @@ -532,7 +532,7 @@ colon-separated list of pathnames SEARCH-PATH" (error :output) (if-error-exists :error) status-hook) - #!+sb-doc + #+sb-doc "RUN-PROGRAM creates a new Unix process running the Unix program found in the file specified by the PROGRAM argument. ARGS are the standard arguments that can be passed to a Unix program. For no arguments, use NIL diff --git a/version.lisp-expr b/version.lisp-expr index 44013b0..07a75c0 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.10.29" +"0.9.10.30" -- 1.7.10.4