/[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.14.1 by rtoy, Thu Feb 25 20:34:50 2010 UTC revision 1.11 by rtoy, Tue Apr 20 17:57:44 2010 UTC
# Line 18  Line 18 
18    
19  (in-package "SYSTEM")  (in-package "SYSTEM")
20  (use-package "EXTENSIONS")  (use-package "EXTENSIONS")
21  (intl:textdomain "cmucl")  (intl:textdomain "cmucl-linux-os")
22    
23  (export '(get-system-info get-page-size os-init))  (export '(get-system-info get-page-size os-init))
24    
25  (register-lisp-feature :linux)  (register-lisp-feature :linux)
# 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.14.1  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.5