/[cmucl]/src/code/mach-os.lisp
ViewVC logotype

Diff of /src/code/mach-os.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by wlott, Fri Feb 14 23:45:15 1992 UTC revision 1.4 by wlott, Sat Feb 15 12:47:59 1992 UTC
# Line 42  Line 42 
42  (defun get-system-info ()  (defun get-system-info ()
43    (multiple-value-bind (err? utime stime maxrss ixrss idrss    (multiple-value-bind (err? utime stime maxrss ixrss idrss
44                               isrss minflt majflt)                               isrss minflt majflt)
45                         (unix:unix-getrusage mach:rusage_self)                         (unix:unix-getrusage unix:rusage_self)
46      (declare (ignore maxrss ixrss idrss isrss minflt majflt))      (declare (ignore maxrss ixrss idrss isrss minflt majflt))
47      (unless err?      (unless err?
48        (error "Unix system call getrusage failed: ~A."        (error "Unix system call getrusage failed: ~A."

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5