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

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 74f98be..b0e1811 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -390,12 +390,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")))