--- ./src/utils/file-utils-sbcl.lisp.orig	2013-02-21 08:19:17.000000000 -0700
+++ ./src/utils/file-utils-sbcl.lisp	2014-03-10 20:00:00.000000000 -0600
@@ -22,16 +22,9 @@
 (export '(file-exists-p directory-p read-permission? write-permission?
 			file-write-time get-file-info))
 
-(defun remove-backslashes (string)
-  (declare (type string string))
-  (sb-impl::remove-backslashes string 0 (length string)))
-
 (defun file-exists-p (file)
   (handler-case
-      (zerop
-       (sb-posix:access
-	(remove-backslashes (namestring (merge-pathnames file)))
-	sb-posix:f-ok))
+      (zerop (sb-posix:access (merge-pathnames file) sb-posix:f-ok))
     (sb-posix:syscall-error () nil)))
 
 (defun directory-p (dir)