cffi-posix/cffi-dirent

diff --git a/cffi-dirent.lisp b/cffi-dirent.lisp
index d725b93..33404c0 100644
--- a/cffi-dirent.lisp
+++ b/cffi-dirent.lisp
@@ -122,13 +122,6 @@
 	    (let ((,var ,dirent))
 	      ,@body))))))
 
-(defun dir (name &key (test #'string<)
-                   (key #'dirent-name))
-  (let (dir)
-    (do-dir (d name)
-      (push d dir))
-    (sort dir test :key key)))
-
 #+test
 (do-dir (df "/")
   (format t "~&~S ~S ~S ~S ~S~%"
diff --git a/package.lisp b/package.lisp
index c01926e..6d560fe 100644
--- a/package.lisp
+++ b/package.lisp
@@ -44,7 +44,6 @@
    #:dirent-type
    #:dirent-name
    #:do-dir
-   #:dir
    #:readdir-r
    #:rewinddir
    #:seekdir