Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
3c318784
by Raymond Toy at 2023-09-09T02:27:58+00:00
-
a96a03e6
by Raymond Toy at 2023-09-09T02:28:11+00:00
1 changed file:
Changes:
| ... | ... | @@ -55,18 +55,3 @@ |
| 55 | 55 | |
| 56 | 56 | (defun os-init ()
|
| 57 | 57 | (setf *software-version* nil)) |
| 58 | - |
|
| 59 | -;;; GET-SYSTEM-INFO -- Interface
|
|
| 60 | -;;;
|
|
| 61 | -;;; Return system time, user time and number of page faults.
|
|
| 62 | -;;;
|
|
| 63 | -(defun get-system-info ()
|
|
| 64 | - (multiple-value-bind (err? utime stime maxrss ixrss idrss
|
|
| 65 | - isrss minflt majflt)
|
|
| 66 | - (unix:unix-getrusage unix:rusage_self)
|
|
| 67 | - (declare (ignore maxrss ixrss idrss isrss minflt))
|
|
| 68 | - (unless err?
|
|
| 69 | - (error (intl:gettext "Unix system call getrusage failed: ~A.")
|
|
| 70 | - (unix:get-unix-error-msg utime)))
|
|
| 71 | -
|
|
| 72 | - (values utime stime majflt))) |