Add & use PROBE-DIRECTORY for client updates.

client-update.lisp

@@ -39,7 +39,7 @@
       (let* ((try (format nil "~A-~D" base suffix))
              (dir (qmerge (make-pathname :directory
                                          (list :relative "retired" try)))))
-        (unless (ignore-errors (truename dir))
+        (unless (probe-directory dir)
           (return dir))))))
 
 (defun update-client (&key (prompt t))

impl-util.lisp

@@ -32,6 +32,17 @@
     (ql-clisp:rename-directory from to)
     (truename to)))
 
+(definterface probe-directory (pathname)
+  (:implementation t
+    (let ((directory (probe-file pathname)))
+      (when directory
+        ;; probe-file is specified to return the truename of the path,
+        ;; but Allegro does not return the truename; truenamize it.
+        (truename directory))))
+  (:implementation clisp
+    (let ((directory (ql-clisp:probe-pathname pathname)))
+      (when (and directory (ql-clisp:probe-directory directory))
+        directory))))
 
 (definterface init-file-name ()
   (:implementation allegro

impl.lisp

@@ -153,6 +153,8 @@
   (:reexport-from #:ext
                   #:delete-dir
                   #:rename-directory
+                  #:probe-directory
+                  #:probe-pathname
                   #:read-byte-sequence))
 
 

package.lisp

@@ -46,6 +46,7 @@
            #:add-to-init-file
            #:rename-directory
            #:delete-directory
+           #:probe-directory
            #:directory-entries
            #:delete-directory-tree))