Skip to content
Snippets Groups Projects
Commit 6433de70 authored by wlott's avatar wlott
Browse files

This commit was generated by cvs2svn to compensate for changes in r2446,

which included commits to RCS files with non-trunk default branches.
parents e303ab27 288e34ab
No related branches found
No related tags found
No related merge requests found
...@@ -225,7 +225,7 @@ ...@@ -225,7 +225,7 @@
(declare (type (array (unsigned-byte 16) (*)) dictionary descriptors) (declare (type (array (unsigned-byte 16) (*)) dictionary descriptors)
(simple-string string-table) (simple-string string-table)
(fixnum string-table-length)) (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 (with-open-file (s filename :direction :output
:element-type '(unsigned-byte 16) :element-type '(unsigned-byte 16)
:if-exists :overwrite :if-exists :overwrite
......
...@@ -72,9 +72,9 @@ ...@@ -72,9 +72,9 @@
;;;; Binary Dictionary File I/O ;;;; Binary Dictionary File I/O
(defun open-dictionary (f) (defun open-dictionary (f)
(multiple-value-bind (filename existsp) (let* ((filename (ext:unix-namestring f))
(lisp::predict-name f :for-input) (kind (mach:unix-file-kind filename)))
(unless existsp (error "Cannot find dictionary -- ~S." filename)) (unless kind (error "Cannot find dictionary -- ~S." filename))
(multiple-value-bind (fd err) (multiple-value-bind (fd err)
(mach:unix-open filename mach:o_rdonly 0) (mach:unix-open filename mach:o_rdonly 0)
(unless fd (unless fd
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment