(sb!ext:run-program "/bin/uname" `("-r")
:output stream))))))
-;;; Return system time, user time and number of page faults.
+;;; Return user time, system time, and number of page faults.
(defun get-system-info ()
(multiple-value-bind
(err? utime stime maxrss ixrss idrss isrss minflt majflt)
;;; Return the system page size.
(defun get-page-size ()
- ;; probably should call getpagesize()
- ;; FIXME: Or we could just get rid of this, since the uses of it look
- ;; disposable.
- 4096)
+ sb!c:*backend-page-size*)
\ No newline at end of file