diff -up common-lisp-controller/post-sysdef-install.lisp.sbcl common-lisp-controller/post-sysdef-install.lisp --- common-lisp-controller/post-sysdef-install.lisp.sbcl 2009-09-03 00:16:13.000000000 -0500 +++ common-lisp-controller/post-sysdef-install.lisp 2010-02-18 12:25:59.638835910 -0600 @@ -61,7 +61,9 @@ #+sbcl (defun get-owner-and-mode (directory) (when (eq :directory - (sb-impl::native-file-kind (namestring directory))) + (#.(or (find-symbol "NATIVE-FILE-KIND" :sb-impl) + (find-symbol "UNIX-FILE-KIND" :sb-unix)) + (namestring directory))) ;; check who owns it (multiple-value-bind (res dev ino mode nlink uid gid rdev size atime mtime) (sb-unix:unix-stat (namestring directory))