Changeset 5848

Timestamp:

Jan 31, 2007, 3:33:37 PM (18 years ago)

Author:

Gary Byers

Message:

Tweak the warning given if CDB-OPEN fails: missing cdb file: dog bytes man;
missing parent directory is more newsworthy.

File:

• trunk/ccl/lib/db-io.lisp (modified) (1 diff)

trunk/ccl/lib/db-io.lisp

@@ -382 +382 @@
       (cdb-check-trailer cdb))
     (progn
-      (warn "Interface file ~s does not exist.~%This may mean that that the \"ccl:\" logical-pathname host has not been properly initialized. " (translate-logical-pathname pathname))
+      (if (probe-file (make-pathname :name nil :type nil :defaults pathname))
+        (warn "Interface file ~s does not exist." pathname)
+        (warn "Interface file ~s does not exist, and the containing directory does not exist.~%This may mean that that the \"ccl:\" logical-pathname host has not been properly initialized. " (translate-logical-pathname pathname)))
       (make-cdb :fid nil :pathname (namestring pathname)))))