X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=c1b32ab39c0303c8d8a4076a019447fb21280b8f;hb=8b64d57b865fec6ba082dda965146b5e8aa877b3;hp=74f98bef6959eb78ec7ae2912ebd34929eeb6fd6;hpb=074ba0606c687dbca4afc99e8e72e6f1a4486d24;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 74f98be..c1b32ab 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -64,21 +64,25 @@
 ;;; implemented using SB!XC:DEFMACRO wrapped in EVAL-WHEN.
 
 (defmacro syscall ((name &rest arg-types) success-form &rest args)
-  `(let ((result (alien-funcall (extern-alien ,name (function int ,@arg-types))
+  `(locally
+    (declare (optimize (sb!c::float-accuracy 0)))
+    (let ((result (alien-funcall (extern-alien ,name (function int ,@arg-types))
 				,@args)))
-     (if (minusp result)
-	 (values nil (get-errno))
-        ,success-form)))
+      (if (minusp result)
+	  (values nil (get-errno))
+	  ,success-form))))
 
 ;;; This is like SYSCALL, but if it fails, signal an error instead of
 ;;; returning error codes. Should only be used for syscalls that will
 ;;; never really get an error.
 (defmacro syscall* ((name &rest arg-types) success-form &rest args)
-  `(let ((result (alien-funcall (extern-alien ,name (function int ,@arg-types))
-				,@args)))
-     (if (minusp result)
-	 (error "Syscall ~A failed: ~A" ,name (strerror))
-	 ,success-form)))
+  `(locally
+    (declare (optimize (sb!c::float-accuracy 0)))
+    (let ((result (alien-funcall (extern-alien ,name (function int ,@arg-types))
+				 ,@args)))
+      (if (minusp result)
+	  (error "Syscall ~A failed: ~A" ,name (strerror))
+	  ,success-form))))
 
 (/show0 "unix.lisp 109")
 
@@ -390,12 +394,6 @@
 	     (cast buf c-string)
 	     (cast buf (* char)) 256)))
 
-;;; Write the core image of the file described by FD to disk.
-(defun unix-fsync (fd)
-  (declare (type unix-fd fd))
-  (void-syscall ("fsync" int) fd))
-
-
 (defun unix-setsid ()
   (int-syscall ("setsid")))