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... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/961c96adaded1bf545d8b04... You're receiving this email because of your account on gitlab.common-lisp.net.