/[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 by agoncharov, Sat Oct 10 03:00:03 2009 UTC revision 1.13.4.3 by rtoy, Sun Feb 14 03:06:41 2010 UTC
# Line 21  Line 21 
21    
22  (in-package "SYSTEM")  (in-package "SYSTEM")
23  (use-package "EXTENSIONS")  (use-package "EXTENSIONS")
24    
25    (intl:textdomain "cmucl")
26    
27  (export '(get-system-info get-page-size os-init))  (export '(get-system-info get-page-size os-init))
28    
29  (register-lisp-feature :bsd)  (register-lisp-feature :bsd)
# Line 45  Line 48 
48                        #+Darwin "Darwin"                        #+Darwin "Darwin"
49                        #-(or freebsd NetBSD OpenBSD Darwin) "BSD")                        #-(or freebsd NetBSD OpenBSD Darwin) "BSD")
50    
51  (defvar *software-version* nil "Version string for supporting software")  (defvar *software-version* nil _N"Version string for supporting software")
52    
53  (defun software-version ()  (defun software-version ()
54    "Returns a string describing version of the supporting software."    _N"Returns a string describing version of the supporting software."
55    (unless *software-version*    (unless *software-version*
56      (setf *software-version*      (setf *software-version*
57            (string-trim '(#\newline)            (string-trim '(#\newline)
# Line 76  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 90  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  
changed lines
  Added in v.1.13.4.3

  ViewVC Help
Powered by ViewVC 1.1.5