--- acl-compat/sbcl/acl-excl.lisp	2005/09/22 16:22:02	1.1
+++ acl-compat/sbcl/acl-excl.lisp	2005/09/22 16:50:27
@@ -26,11 +26,14 @@
   (error "unix-signal not implemented in acl-excl-sbcl.lisp"))
 
 (defun filesys-inode (path)
+  ;; FIXME: How do we handle non ASCII paths?
+  (let ((path (coerce path 'simple-base-string)))
   (multiple-value-bind (found ign inode)
       (sb-unix::unix-lstat path)
     (if found
         inode
         (error "path ~s does not exist" path))))
+  )
 
 (defun cl-internal-real-time ()
   (round (/ (get-internal-real-time) internal-time-units-per-second)))