X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fconstants.lisp;h=c35bde0b23c9c19017fcf7a09eb2c56f8e83add1;hb=93dd7df18bb1774e6620df84598122d8650127e5;hp=c00a7bf1c502041d91e0af923e77ea8c08158f99;hpb=dca20740848a3e316371460a25be29fd574850ed;p=sbcl.git

diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index c00a7bf..c35bde0 100644
--- a/contrib/sb-posix/constants.lisp
+++ b/contrib/sb-posix/constants.lisp
@@ -272,7 +272,9 @@
               #-(and linux largefile) "struct dirent"
               #-win32 (:ino-t ino "ino_t" "d_ino")
               (:c-string name "char *" "d_name"
-                         :distrust-length #+sunos t #-sunos nil)) t)
+                         ;; FIXME: sunos should really have :distrust-length
+                         ;; t, but this is currently broken. -- Jim Wise 2010-08-31
+                         :distrust-length nil)) t)
 
  ;; password database
  #-win32