DIRECTORY bugfix

Calling DIRECTORY fails where there are broken symlinks in the
directory.

-- 
Tact is the ability to tell a man he has an open mind when he has a
hole in his head.

(setq reply-to
  (concatenate 'string "Paul Foley " "<mycroft" '(#\@) "actrix.gen.nz>"))

Index: code/filesys.lisp
===================================================================
RCS file: /project/cmucl/cvsroot/src/code/filesys.lisp,v
retrieving revision 1.104
diff -u -r1.104 filesys.lisp
--- code/filesys.lisp	10 Sep 2007 16:25:00 -0000	1.104
+++ code/filesys.lisp	16 Jun 2008 05:06:35 -0000
@@ -1099,7 +1099,9 @@
 					   :directory))
 				  (concatenate 'string name "/")
 				  name)))
-		    (if truenamep (truename name) (pathname name))))
+		    (if truenamep
+			(handler-case (truename name) (error () (pathname name)))
+			(pathname name))))
 	      (sort (delete-duplicates results :test #'string=) #'string<)))))