(defun unix-resolve-links (pathname)
(declare (type simple-string pathname))
(aver (not (relative-unix-pathname? pathname)))
(defun unix-resolve-links (pathname)
(declare (type simple-string pathname))
(aver (not (relative-unix-pathname? pathname)))
;; Unlike the old CMU CL code, we handle a broken symlink by
;; returning the link itself. That way, CL:TRUENAME on a
;; broken link returns the link itself, so that CL:DIRECTORY
;; Unlike the old CMU CL code, we handle a broken symlink by
;; returning the link itself. That way, CL:TRUENAME on a
;; broken link returns the link itself, so that CL:DIRECTORY