/[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.4 by rtoy, Fri Feb 26 15:32:48 2010 UTC revision 1.17 by rtoy, Fri Jul 30 22:51:58 2010 UTC
# Line 35  Line 35 
35                         #-(or freebsd NetBSD OpenBSD Darwin) :bsd)                         #-(or freebsd NetBSD OpenBSD Darwin) :bsd)
36    
37  #+elf  #+elf
38  (register-lisp-feature :elf)  (register-lisp-runtime-feature :elf)
39  #+mach-o  #+mach-o
40  (register-lisp-feature :mach-o)  (register-lisp-runtime-feature :mach-o)
41    
42  #+freebsd  #+executable
43  (register-lisp-runtime-feature :executable)  (register-lisp-runtime-feature :executable)
44    
45  (setq *software-type* #+OpenBSD "OpenBSD"  (setq *software-type* #+OpenBSD "OpenBSD"
# Line 48  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 _N"Version string for supporting software")  (defvar *software-version* nil "Version string for supporting software")
52    
53  (defun software-version ()  (defun software-version ()
54    _N"Returns a string describing version of the supporting software."    "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 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 (intl:gettext "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 (intl:gettext "Getpagesize failed: ~A") (unix:get-unix-error-msg err)))
97      val))      val))

Legend:
Removed from v.1.13.4.4  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5