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