--- ./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)