/[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.8.12.3 by rtoy, Fri Feb 26 15:32:49 2010 UTC revision 1.11 by rtoy, Tue Apr 20 17:57:44 2010 UTC
# Line 32  Line 32 
32  ;;; select() in Linux kernel 2.6.x) and instead of running uname -r,  ;;; select() in Linux kernel 2.6.x) and instead of running uname -r,
33  ;;; let's just get the info from uname().  ;;; let's just get the info from uname().
34  (defun software-version ()  (defun software-version ()
35    _N"Returns a string describing version of the supporting software."    "Returns a string describing version of the supporting software."
36    (multiple-value-bind (sysname nodename release version)    (multiple-value-bind (sysname nodename release version)
37        (unix:unix-uname)        (unix:unix-uname)
38      (declare (ignore sysname nodename))      (declare (ignore sysname nodename))
# 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.8.12.3  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.5