;;;; Carnegie Mellon University, and has been placed in the public
;;;; domain.
-(sb!int:file-comment
- "$Header$")
-
(in-package "SB!SYS")
;;;; Check that target machine features are set up consistently with
#!+FreeBSD "FreeBSD"
#!+OpenBSD "OpenBSD"))
+(defvar *software-version* nil)
+
(defun software-version ()
#!+sb-doc
"Return a string describing version of the supporting software, or NIL
if not available."
- #+nil ; won't work until we support RUN-PROGRAM..
- (unless *software-version*
- (setf *software-version*
- (string-trim '(#\newline)
- (with-output-to-string (stream)
- (run-program "/usr/bin/uname"
- '("-r")
- :output stream)))))
- nil)
+ (or *software-version*
+ (setf *software-version*
+ (string-trim '(#\newline)
+ (with-output-to-string (stream)
+ (sb!ext:run-program "/usr/bin/uname" `("-r")
+ :output stream))))))
\f
;;; OS-COLD-INIT-OR-REINIT initializes our operating-system interface.
;;; It sets the values of the global port variables to what they
(sb!unix:unix-getrusage sb!unix:rusage_self)
(declare (ignore maxrss ixrss idrss isrss minflt))
(unless err?
- (error "Unix system call getrusage failed: ~A."
- (sb!unix:get-unix-error-msg utime)))
+ (simple-perror "Unix system call getrusage failed" :errno utime))
(values utime stime majflt)))