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

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

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

revision 1.13.4.1 by rtoy, Mon Feb 8 17:15:46 2010 UTC revision 1.13.4.2 by rtoy, Tue Feb 9 03:43:35 2010 UTC
# Line 79  Line 79 
79                         (unix:unix-getrusage unix:rusage_self)                         (unix:unix-getrusage unix:rusage_self)
80      (declare (ignore maxrss ixrss idrss isrss minflt))      (declare (ignore maxrss ixrss idrss isrss minflt))
81      (unless err?      (unless err?
82        (error "Unix system call getrusage failed: ~A."        (error _"Unix system call getrusage failed: ~A."
83               (unix:get-unix-error-msg utime)))               (unix:get-unix-error-msg utime)))
84    
85      (values utime stime majflt)))      (values utime stime majflt)))
# Line 93  Line 93 
93    (multiple-value-bind (val err)    (multiple-value-bind (val err)
94        (unix:unix-getpagesize)        (unix:unix-getpagesize)
95      (unless val      (unless val
96        (error "Getpagesize failed: ~A" (unix:get-unix-error-msg err)))        (error _"Getpagesize failed: ~A" (unix:get-unix-error-msg err)))
97      val))      val))

Legend:
Removed from v.1.13.4.1  
changed lines
  Added in v.1.13.4.2

  ViewVC Help
Powered by ViewVC 1.1.5