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

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

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

revision 1.10 by rtoy, Mon Apr 19 02:18:04 2010 UTC revision 1.11 by rtoy, Tue Apr 20 17:57:44 2010 UTC
# Line 54  Line 54 
54                         (unix:unix-getrusage unix:rusage_self)                         (unix:unix-getrusage unix:rusage_self)
55      (declare (ignore maxrss ixrss idrss isrss minflt))      (declare (ignore maxrss ixrss idrss isrss minflt))
56      (unless err?      (unless err?
57        (error _"Unix system call getrusage failed: ~A."        (error (intl:gettext "Unix system call getrusage failed: ~A.")
58               (unix:get-unix-error-msg utime)))               (unix:get-unix-error-msg utime)))
59    
60      (values utime stime majflt)))      (values utime stime majflt)))
# Line 68  Line 68 
68    (multiple-value-bind (val err)    (multiple-value-bind (val err)
69        (unix:unix-getpagesize)        (unix:unix-getpagesize)
70      (unless val      (unless val
71        (error _"Getpagesize failed: ~A" (unix:get-unix-error-msg err)))        (error (intl:gettext "Getpagesize failed: ~A") (unix:get-unix-error-msg err)))
72      val))      val))
73    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.5