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