Changeset 121

Timestamp:

Dec 13, 2003, 1:51:54 PM (21 years ago)

Author:

Gary Byers

Message:

DIRECTORYP.

File:

• trunk/ccl/lib/pathnames.lisp (modified) (2 diffs)

trunk/ccl/lib/pathnames.lisp

@@ -133 +133 @@
                  source-path dest-path (%strerror exit-code)))
         (values new-name original (truename new-name))))))
+
+
+;;; It's not clear that we can support anything stronger than
+;;; "advisory" ("you pretend the file's locked & I will too") file
+;;; locking under Darwin.
 
 
@@ -239 +244 @@
 ;is a dir. - should we doc this - its exported?
 (defun directoryp (path)
-  ;; This should be pretty easy.
-  (break "Directoryp ? ~s" path))
+  (let* ((native (native-translated-namestring path))
+         (realpath (%realpath native)))
+    (if realpath (eq (%unix-file-kind realpath) :directory))))
+         
 
 ;-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_