From 288e34ab0f07ed320264d145dc0259f28fab7291 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 17 Nov 1990 05:45:19 +0000
Subject: [PATCH] Changed uses of lisp::predict-name to ext:unix-namestring.

---
 hemlock/diredcoms.lisp   | 2 +-
 hemlock/spell-build.lisp | 2 +-
 hemlock/spell-rt.lisp    | 6 +++---
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/hemlock/diredcoms.lisp b/hemlock/diredcoms.lisp
index 97911dd01..082d7458a 100644
--- a/hemlock/diredcoms.lisp
+++ b/hemlock/diredcoms.lisp
@@ -785,7 +785,7 @@
 ;;; one directory.
 ;;;
 (defun dired-directorify (pathname)
-  (let ((directory (lisp::predict-name pathname t)))
+  (let ((directory (ext:unix-namestring pathname)))
     (if (directoryp directory)
 	directory
 	(pathname (concatenate 'simple-string (namestring directory) "/")))))
diff --git a/hemlock/spell-build.lisp b/hemlock/spell-build.lisp
index 49a92211c..0357b6ad3 100644
--- a/hemlock/spell-build.lisp
+++ b/hemlock/spell-build.lisp
@@ -225,7 +225,7 @@
   (declare (type (array (unsigned-byte 16) (*)) dictionary descriptors)
 	   (simple-string string-table)
 	   (fixnum string-table-length))
-  (let ((filename (lisp::predict-name (namestring (pathname f)) nil)))
+  (let ((filename (ext:unix-namestring (pathname f) nil)))
     (with-open-file (s filename :direction :output
 		       :element-type '(unsigned-byte 16)
 		       :if-exists :overwrite
diff --git a/hemlock/spell-rt.lisp b/hemlock/spell-rt.lisp
index 555f0a720..9f908f14b 100644
--- a/hemlock/spell-rt.lisp
+++ b/hemlock/spell-rt.lisp
@@ -72,9 +72,9 @@
 ;;;; Binary Dictionary File I/O
 
 (defun open-dictionary (f)
-  (multiple-value-bind (filename existsp)
-		       (lisp::predict-name f :for-input)
-    (unless existsp (error "Cannot find dictionary -- ~S." filename))
+  (let* ((filename (ext:unix-namestring f))
+	 (kind (mach:unix-file-kind filename)))
+    (unless kind (error "Cannot find dictionary -- ~S." filename))
     (multiple-value-bind (fd err)
 			 (mach:unix-open filename mach:o_rdonly 0)
       (unless fd
-- 
GitLab