X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbsd-os.lisp;h=8e30939c61a042a6b2255dd616429470e40460d3;hb=4cf50b1896b25f5337e7c258b0b560da00d47993;hp=5b0e6fc92d42f7672817a928b2101324c3deb239;hpb=e8c27392f426b5ebe180fa07b220a9b650a49061;p=sbcl.git

diff --git a/src/code/bsd-os.lisp b/src/code/bsd-os.lisp
index 5b0e6fc..8e30939 100644
--- a/src/code/bsd-os.lisp
+++ b/src/code/bsd-os.lisp
@@ -45,8 +45,7 @@
 		       (sb!unix:unix-getrusage sb!unix:rusage_self)
     (declare (ignore maxrss ixrss idrss isrss minflt))
     (unless err?
-      (error "Unix system call getrusage failed: ~A."
-	     (sb!unix:get-unix-error-msg utime)))
+      (simple-perror "Unix system call getrusage failed" :errno utime))
     
     (values utime stime majflt)))