Raymond Toy pushed to branch master at cmucl / cmucl
Commits: 3c318784 by Raymond Toy at 2023-09-09T02:27:58+00:00 Fix #261: Remove old get-system-info in bsd-os.lisp
- - - - - a96a03e6 by Raymond Toy at 2023-09-09T02:28:11+00:00 Merge branch 'issue-261-remove-bsd-get-system-info' into 'master'
Fix #261: Remove old get-system-info in bsd-os.lisp
Closes #261
See merge request cmucl/cmucl!174 - - - - -
1 changed file:
- src/code/bsd-os.lisp
Changes:
===================================== src/code/bsd-os.lisp ===================================== @@ -55,18 +55,3 @@
(defun os-init () (setf *software-version* nil)) - -;;; GET-SYSTEM-INFO -- Interface -;;; -;;; Return system time, user time and number of page faults. -;;; -(defun get-system-info () - (multiple-value-bind (err? utime stime maxrss ixrss idrss - isrss minflt majflt) - (unix:unix-getrusage unix:rusage_self) - (declare (ignore maxrss ixrss idrss isrss minflt)) - (unless err? - (error (intl:gettext "Unix system call getrusage failed: ~A.") - (unix:get-unix-error-msg utime))) - - (values utime stime majflt)))
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/961c96adaded1bf545d8b04...